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1 .  General  Information 


The  AFGL-7 01-14  Langmuir  Probe  Instrument  on  CRRES  has  two 
separate  functions,  namely  to  act  as  1)  a  combined  Langmuir- 
Probe/Electric-Field  instrument  and  2)  as  the  control  element  for 
the  Fluxgate  Magnetometer  (AFGL-701-13) .  This  chapter  describes 
the  general  capabilities  of  the  instrument  while  later  chapters 
describe  the  software  and  hardware  in  more  detail. 

The  electric-f ield/langmuir  probe  part  of  the  instrument 
connects  to  two  orthogonal  double  probes,  each  of  which  is  a  pair 
of  separated  conductors  whose  potential  difference  is  measured. 
One  pair  of  separated  conductors  are  spheres  that  are  located  in 
the  spin  plane  on  the  ends  of  wire  booms  and  separated  by  100 
meters.  The  other  pair  of  conductors  are  cylindrical  wire  boom 
elements  also  in  the  spin  plane  that  are  separated  by  an 
effective  distance  of  90  meters. 

The  fluxgate  magnetometer  part  of  the  instrument  consists  of 
a  3 -axis  magnetometer  sensor  which  is  attached  to  the  end  of  a 
20'  rigid  boom  in  the  spin  plane.  The  sensor  has  a  plus  or  minus 
45000  nT  range  and  sensitive  to  less  than  1/2  nT. 

Both  parts  of  the  instrument  are  controlled  by  a  central 
*  computer  which  telemeters  to  the  ground  approximately  96  Langmuir 

j  Probe/Electric  Field  samples  and  48  Magnetometer  samples  per 

second. 

In  addition,  the  instrument  coordinates  with  two  other 
instruments  on  the  spacecraft.  The  electric  field  analog  signals 
are  repeated  to  both  an  AC  electric  field  instrument  and  a  plasma 
analyser,  and  magnetic  field  data  is  sent  in  reduced  digital  form 
to  the  plasma  analyser. 
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1 . 1  Sensor  Descriptions 


Wire  Booms  with  Spherical  Sensors 
(AFGL-701-14D  and  14E) 

The  spherical  sensors  consist  of  opposing  wire  booms  that 
are  positioned  by  centrifugal  force.  Each  boom  has  four  major 
components:  the  spherical  sensor,  '•stub”  and  "guard”  segments, 
the  cable  and  the  deployment  hardware. 

The  sensor  consists  of  an  aluminum  sphere  which  is  coated 
with  a  conductive  material.  Inside  this  shell  is  a  small  circuit 
board  containing  circuits  for  both  voltage  and  current 
measurements . 

The  cable  consists  of  8  conductors  surrounding  a  coaxial 
conductor.  These  wires  are  surrounded  by  a  stainless  steel  braid 
which  acts  as  an  electrically  conducting  outer  shield.  The 
conductors  feed  voltages  and  accept  signals  from  the 
preamplifiers  located  in  the  spheres.  The  mechanical  member 
which  supports  the  centrifugal  force  load  of  the  probes  is 
stranded  Kevlar  that  is  located  between  the  wires  and  the  braid. 
The  wires  and  outer  shield  connect  electrically  at  the  sensor 
sphere. 

The  cable's  outer  shield  is  broken  into  three  sections.  The 
section  closest  to  the  sphere,  which  is  called  the  STUB  section, 
is  electically  connected  to  a  voltage  equal  to  the  preamplifier 
output  plus  or  minus  a  small  DC  offset  so  as  to  force  its 
potential  to  be  near  that  of  the  sphere,  and,  thus,  to  minimize 
the  perturbing  effect  of  the  cable  on  the  plasma.  To  guard 
against  the  possibility  of  oscillations  being  set  up  by  this 
arrangement  due  to  resonances  in  the  plasma,  it  is  possible  to 
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insert  a  low  pass  RC  filter  with  100  Hz  rolloff  between  the 
preamplifier  and  the  stub  section  by  actuating  a  latching  relay 
in  the  main  electronic  box. 

To  prevent  a  positively  charged  spacecraft  from  attracting 
electrons  away  from  the  sensors,  a  small  section  (10cm) ,  called 
the  GUARD,  is  placed  between  the  shield  and  the  stub  sections. 
The  guard  section  is  adjusted  to  be  more  negative  than  the  sphere 
and  stub  sections  and  its  potential  with  respect  to  the  sphere  is 
;  controlled  by  the  microprocessor  via  ground  command. 

Stubs  and  guards  exists  symmetrically  on  both  sides  of  each 
sphere,  with  the  outer  stub  and  guard  being  restrained  at  launch 
via  a  "tophat"  mechanism.  Basically,  the  outward  cable  segment 
is  wrapped  inside  the  "hat”  while  the  "brim"  of  the  hat  holds 
onto  the  sphere.  When  the  centifugal  force  on  the  tophat  exceeds 
its  ability  to  hold  on,  the  tophat  releases  and  the  cable 
unravels  as  the  tophat  floats  away. 

The  deployment  units  incorporate  two  methods  of  measuring 

boom  length  as  well  as  microswitches  to  reveal  both  sphere- 

release  and  end-of-wire  conditions.  One  method  of  length 

measurement  involves  a  simple  potentiometer  tied  to  the  cable 
i 

spool,  while  the  second  method  uses  a  microswitch  tied  to  cam  on 
*  the  cable  feed  roller. 

Boom  deployment  is  accomplished  under  microprocessor  control 
that  monitors  the  boom  lengths  and  temporarily  stops  the 
deployment  of  any  unit  whose  length  differs  from  that  of  its  mate 
by  more  than  a  few  inches.  As  a  backup  in  case  of  microprocessor 
failure  in  launch,  the  boom  deployment  can  be  accomplished 


3 


directly  by  the  spacecraft  control  system. 


Wire  Booms  with  Cylindrical  Sensors 
(AFGL-701-15D  and  15E) 

Each  cylindrical  sensor  unit  is  driven  by  a  28-volt 
brushless  DC  motor  which  powers  both  a  storage  reel  and  a  drive 
roller  assembly.  The  driver  roller  incorporates  a  slip  clutch 
which  allows  the  roller  to  be  driven  at  a  slightly  faster  rate 
than  the  storage  spool.  This  feature  ensures  that  a  positive 
tension  is  maintained  on  the  wire  while  being  dispensed  from  the 
mechanism.  A  potentiometer  is  driven  by  the  moving  wire  to  give 
a  continuous  indication  of  deployed  length.  Microswitches  are 
used  to  signal  the  full  extension  point.  In  addition,  at  full 
extension,  a  lever  trips  another  microswitch  which  cuts  power  to 
the  motor  to  provide  automatic  shut-off  of  the  mechanism.  This 
function  is  backed  up  by  a  positive  mechanical  stop  to  prevent 
the  possibility  of  backwrapping  the  wire  through  switch  failure. 

The  deployment  of  cylindrical  boom  units  is  under  direct 
spacecraft  control,  not  instrument  control. 

Electric  Field  measurements  using  the  cylindrical  units 
involve  attaching  small  preamplifier  circuits  near  the  base  of 
each  antenna  unit.  Each  preamplifier  box  is  then  connected  to 
the  main  electronics  box. 
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DC  Preamplifiers  for  Cylindrical  Booms 
(AFGL-701-14B  and  14C) 

The  DC  measurement  of  cylindrical  sensors  is  accomplished  by 
means  of  preamplifier  circuits  located  close  to  the  base  of  the 
cylinder  deployment  mechanisms.  Bias  current  to  the  sensors  is 
supplied  by  means  of  a  relay  inside  the  DC  preamplifier  unit. 
This  relay  connects  a  bias  voltage  to  the  sensor  through  a  large 
valued  resistor. 

i 

Shonstedt  Fluxgate  Magnetometer 

V  (AFGL-701-13-1A,  IB,  2) 

The  magnetometer  measurement  is  made  using  a  standard 
fluxgate  instrument  of  which  there  are  two  units:  a  main 
electronics  box  and  sensor.  The  sensor  is  mounted  on  a  rigid  20' 
long  boom  in  order  to  get  it  far  enough  away  from  the  spacecraft 
body  that  the  total  spacecraft  generated  magnetic  field  will  have 
a  strength  less  than  2  nT  along  the  spin  axis  and  4  nT  in  the 
spin  plane  at  the  sensor  location.  The  sensor  is  oriented  such 
that  the  outputs  called  BX,  BY  and  BZ  are  in  the  spacecraft 
coordinate  system  -X,  -Z,  and  -Y.  The  sensor  is  also  tipped 

slightly  in  order  to  give  a  spin  frequency  waveform  in  the  other 
measurements.  This  allows  for  the  spacecraft  z-axis  offset  to  be 
calculated. 
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Table  l.  Summary  of  Physical  Attributes 


BOX 

DESCRIPTION 

DIMENSIONS 

(in) 

WEIGHT 
( lbs) 

AVG . POWER 
(W) 

13- 

la:Fluxgate  Elect. 

5.6 

X 

6.5 

X 

2.1 

1.5 

.500 

13- 

lb: Sensor 

4.7 

X 

2.8 

X 

2.8 

.7 

.  050 

14A 

: Electronics 

10.5 

X 

10.5 

X 

5.0 

16.0 

8.250 

14B 

:DC  Preamp 

4.0 

X 

2.4 

X 

1.3 

0.6 

.  125 

14C 

:DC  Preamp 

4.0 

X 

2.4 

X 

1.3 

0.6 

.  125 

14D 

: Spherical  Boom 

14.8 

X 

6.5 

X 

7.5 

8.2 

.500 

14E 

: Spherical  Boom 

14.8 

X 

6.5 

X 

7.5 

8.2 

.500 

15D 

Cylindrical  Boom 

7.5 

X 

12.2 

X 

7.3 

5.6 

— 

15E 

Cylindrical  Boom 

7.5 

X 

12.2 

X 

7.3 

5.6 

— 

Notes:  J 

1.  14D&E  weights  include  50  meters  of  wire  and  spherical 
sensor. 

2.  15D&E  weights  include  50  meters  of  wire. 

3.  Peak  power  of  14A  is  10.5  Watts  (Burst  collecting). 
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1.2  Instrument  Interfaces 

The  701-14  instrument  has  a  number  of  interfaces  which  share 
signals  and  data  with  other  experiments.  These  are  described 
below: 

IOWA  SOUNDER  INTERFACE.  The  IOWA  Sounder  is  an  AC  electric 
field  instrument  capable  of  frequencies  up  to  several  hundred 
thousand  Hertz.  Two  analog  signals  are  sent  from  the  -14A  box  to 
the  IOWA  instrument  (701-15A) .  In  the  voltage  mode,  these  are 
\  the  Voltages  on  spheres  1  and  2,  while  in  the  current  mode  these 

are  the  current  on  sphere  1  and  ground. 

The  IOWA  instrument  incorporates  a  search  coil  magnetometer, 
whose  signal  is  buffered  to  the  -14A  box.  This  signal  is 
available  to  the  Burst  computer  system  only. 

LEPA  INTERFACE.  The  Low  Energy  Plasma  Analyser  (LEPA) 
interface  consists  of  a  few  open  collector  digital  lines  which 
are  used  to  communicate  reduced  magnetometer  information  from  the 
Langmuir  Probe  to  the  LEPA  instrument.  This  data  points  out  the 
loss  cone  to  the  LEPA  instrument,  so  that  it  can  take  high 
resolution  samples  in  this  region. 

SPACECRAFT  INTERFACE.  The  spacecraft  interface  consists  of 

i 

both  digital  and  analog  wires.  Timing  signals  provided  include 
*  telemetry  shift  clocks  at  16  KHz,  a  2  KHz  clock  (8-bit  telemetry 

word  timing),  and  a  major  frame  spike  every  4.096  seconds.  Data 
is  shifted  out  in  16-bit  packages.  The  2  KHz  clock  is  used  to 
maintain  timing  in  the  MAIN  and  BURST  computers. 

Commands  are  shifted  into  the  instrument  in  16-bit  packages 
using  a  shift  clock  and  envelope  signals.  The  envelope  is  wired 
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into  a  MAIN  computer  interrupt  to  provide  command  ready 
information. 

A  sun  pulse  is  also  provided  by  the  spacecraft  electronics. 
Using  this  signal  and  the  2  KHz  clock,  the  MAIN  computer 
continuously  calculates  the  spacecraft  sun  angle  for  use  by 
internal  functions  such  as  spin-fitting  and  bias  sweeping. 

Analog  and  bi-level  monitors  of  the  instrument  health  are 
provided  through  the  main  spacecraft  interface. 

1 . 3  Analog  Electronics 

The  following  is  an  overview  of  the  analog  electronics  in 
the  Langmuir  Probe  instrument  (701-14A) .  For  more  details,  refer 
to  the  hardware  description  in  chapter  3 . 

E-field  Sensor  Interfacing 

The  instrument  has  four  main  electric  field  sensors,  namely 
the  two  spheres  and  the  two  cylinders.  The  spheres  are  capable 
of  being  operated  in  two  modes,  one  which  measures  electric 
fields  and  the  other  which  measures  the  current. 

The  electronics  which  measure  the  sphere  voltages  have  a 
bandwidth  of  about  1  MHz  and  the  differential  signal  dynamic 
range  of  +/-  200  Volts.  This  dynamic  range  is  achieved  by 
operating  +/-  12  volt  preamplifiers  from  floating  power  supplies. 
The  output  voltage  of  the  sensor  is  used  to  driver  a  unity  gain 
preamplifier  which  operates  from  a  +/"  100  Volt  supply  that  is 
referenced  to  the  experiment  ground.  The  output  of  this  supply 
drives  the  common  terminals  of  its  floating  preamp  supplies. 
This  circuit  allows  the  sensor  potentials  to  swing  plus  or  minus 
100  volts  with  respect  to  the  spacecraft.  To  reduce  power 
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consumption,  the  large  signal  bandwidth  is  limited  to  1000  Hz. 

The  cylinder  measurement  electronics  differ  significantly 
from  the  above  by  operating  from  fixed  +/-  35  Volt  supplies 

rather  than  from  floating  power  supplies.  This  limits  the 
dynamic  range  of  the  cylinder  measurement  to  about  +/-  33  Volts. 

These  four  sensor  measurements  are  called  VI  thru  V4  and  are 
available  to  be  digitized  by  both  the  MAIN  and  the  BURST  computer 
,  systems  (see  the  digital  electronics  below) . 

\  Sensor  Differencing 

The  main  measurement  of  the  electric  field  is  the  difference 
in  voltage  between  the  two  spheres  and  the  two  cylinders.  By 
convention,  the  voltage  difference  between  VI  and  V2  is  called 
V12  and  the  difference  between  V3  and  V4  is  V34. 

Difference  Amplification 

While  a  "times  50"  amplifier  is  available  to  any  qunatity  on 
the  MAIN  multiplexor,  backup  "times  50"  amplifiers  are  provided 
for  V12  and  V34.  These  signals  are  called  V12H  and  V34H  on  the 
MAIN  multiplexor. 


v 
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Differencing  Trims 


The  difference  measurements  V12  and  V34  are  trimmable  by 
the  operation  of  a  pair  of  DAC's  so  that  offsets  which  occur  as 
the  result  of  radiation  damage  may  be  adjusted  so  the  measurement 
stays  in  the  range  of  the  high  gain  amplifier  (see  the  A/D 
section  below) .  To  adjust  these  trims  use  the  following 
commands : 

. VTRIM  n  xx 

where  n  is  1  for  V12  trim,  and  2  for  the  V34  trim, 
and  xx  is  a  2's  complement  8-bit  value  (+127  to  -128). 

Band  Filters 

The  V12  signal  is  fed  into  a  bank  of  3  bandpass  filters  with 
center  frequencies  at  32,  256  and  2048  Hz.  The  filters  are 

called  FI,  F2  and  F3  and  are  connected  to  the  main  multiplexor 
only. 

Each  of  these  bank  filters  consists  of  a  2-pole  bandpass 
function  followed  by  a  logarithmic  amplifier,  a  full  wave 
rectifier  and  an  integrator.  The  overall  response  of  the  filter 
bank  constant  in  the  frequency  range  from  32  to  2048  Hz;  i.e. 
the  filter  band  widths  are  made  sufficiently  large  that  there  is 
no  loss  of  signal  with  frequencies  between  the  center  frequencies 
of  the  filters.  The  result  of  this  is  to  provide  for  each  of  the 
frequency  ranges  a  voltage  which  is  proportional  to  the  logarithm 
of  the  power  in  that  frequency  range. 

Magnetic  Field  Measurements 

The  fluxgate  magnetometer  interface  converts  the  +/-  10  Volt 
signal  from  the  Shonstedt  unit  into  +/-  5  Volts  for  the  A/D 
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circuitry  of  the  Langmuir  Probe.  At  the  same  time,  these  signals 
are  rolled  off  at  6  Hz  for  the  MAIN  telemetry  sampling  system. 

The  additional  capability  is  that  of  amplifying  the  BY 
signal  from  the  magnetometer  by  a  factor  of  6.  BY  is  in  the 
spacecraft  Z  axis  and  may  at  times  be  very  small.  To  select  this 
amplification,  use  the  command 

. BMODE  x 

where  x  =  1  turns  ON  the  amplification 
V  and  x  =  0  turns  OFF  the  amplifier. 

The  instrument  defaults  to  OFF  (BY  not  amplified) . 

Filtering  Electronics 

There  are  two  basic  types  of  anti-aliasing  filters  used  by 
the  Langmuir  Probe  instrument,  fixed  and  variable.  The  fixed 
filters  are  used  on  nearly  all  quantities  which  are  fed  into  the 
MAIN  analog  multiplexor  since  the  sample  frequencies  are  pretty 
much  dictated  by  the  telemetry  capabilities. 

The  variable  filters  are  used  for  quantities  which  are  fed 
into  the  BURST  computer  system.  Since  the  Burst  system  can  vary 
its  sample  frequency  from  10  Hz  to  62500  Hz,  the  completely 
general  anti-aliasing  filter  should  optimally  be  tunable  from  5 

I 

to  31250  Hz.  Using  knowledge  about  what  was  reasonable  to  expect 
for  sampling  frequencies  for  each  quantity,  the  filters  were  set 
as  shown  in  the  table  below. 

To  set  the  value  of  a  given  filter,  use  the  command  as  follows: 
.FILTER  n  xx 

where  n  is  the  filter  number  (1  thru  7)  and  "xx"  is  a  value 
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between  1  and  255.  The  value  1  provides  the  maximum  rolloff 
while  255  opens  the  low  pass  filter  to  its  maximum  value. 

Note:  Do  not  use  a  filter  value  of  01  The  filters  do  not  work 
when  programmed  with  0.  The  output  simply  saturates. 


Table  2 .  Programmable  Filter  Response  Characteristics 


FILTER 

SIGNAL 

BURST  NAME 

MAX ( 255 ) 

MIN ( 1 ) 

1. 

V12/RI1  AC 

BV12AC 

11.5  KHZ 

45  HZ 

2. 

VS2/RI2 

BV2 

11.5 

45 

» 

3. 

V12/RI1 

BV12 

25.5 

98 

4. 

DIRECT  AC 

BDIRECT 

11.5 

45 

l 

5. 

VS1/-SC 

BV1SC 

15.0 

59 

6. 

V34 

BV34 

18.0 

70 

7. 

V34  AC 

BV34AC 

12.0 

47 

Filters  corresponding  to  Burst  multiplexor  quantities  and  the 


names  on  the  block  diagram. 
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Multiplexing 


In  order  to  maximize  capabilities  of  the  instrument  using 
only  7  filters,  a  number  of  multiplexors  were  added  to  provide 
options  as  to  which  value  should  be  filtered  and  then  sampled. 
These  multiplexors  are  responsible  for  some  quantity  names  to 
have  a  "/"  in  them.  For  example,  the  quantity  "Vl/SC"  is  either 
VI  or  SC  (Search  Coil)  depending  upon  the  setting  of  multiplexor 
3.  To  set  these  multiplexors,  use  the  command  as  follows: 

y  .MUX  n  x 

where  n  is  the  multiplexor  (0  thru  3)  and  x  is  the  value. 

Table  3 .  Multiplexor  Settings 


MUX 

QTY 

X=0 

X=1 

X=2 

X=3 

0 

V12/RI1 

RI1 

V12 

1 

V2/RI2 

RI2 

V2 

2 

KAGC 

V2/RI2 

V12/RI1 

SC 

V34 

3 

Vl/SC 

SC 

VI 

Note: 

1.  The  multiplexor  setting  is  available  in  the  DSC  data. 

2 .  MUX  0  and  MUX  1  are  operated  when  changing  from  the  Voltage  to 
the  Current  mode  and  vice  versa.  (See  Mode  Switching.) 


« 
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Relay  Control 


A  number  of  the  options  of  the  sensor  measurement  and 
control  electronics  are  implemented  using  relays  as  the  switching 
elements.  These  switches  are  shown  on  the  instrument  block 
diagram.  To  set  or  reset  relay  number  "n",  use  the  command 

.SET  n  or  .RESET  n 

It  is  important  to  note: 

1.  Relays  0  and  1  are  used  to  "steer"  current  for  setting 
and  resetting  other  relays,  so  their  state  may  change  when 
operating  other  relays. 

2.  Relays  0,  1,  7,  8,  9,  16,  18  and  19  are  changed  by  the 
switching  from  the  Voltage  to  the  Current  mode  or  vice 
versa.  See  Mode  Switching. 


1 
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Sensor  Bias  Electronics 


An  important  capability  of  the  instrument  is  that  of 
applying  bias  currents  to  the  sensors.  The  impedance  between  the 
sensor  and  the  plasma  is  a  non-linear  function  of  the  current 
flowing  between  them  and  it  exhibits  a  minimum  at  a  value  of  bias 
current  which  depends  upon  the  plasma  conditions.  Thus,  the 
accuracy  of  the  electric  field  instrument  can  be  maximized  by 
•  applying  the  optimum  value  of  bias  current  to  the  sensor, 

j  The  analog  circuitry  which  accomplishes  sensor,  stub  and 

guard  biasing  consists  of  eight  8-bit  DACs  which  produce  a 
bipolar  effect  upon  the  eight  biasing  circuits  (2  spheres,  2 
guards,  2  stubs  and  2  cylinders)  .  The  value  of  the  sensor  bias 
currents  are  set  either  by  ground  command  or  by  on-board 
algorithms. 

The  sensor  bias  voltages^,  are  connected  to  the  sensors 

\ 

through  100  MegaOhm  resistors.  Ground  commanded  relays  can  be 
operated  to  remove  the  biasing  capability  for  the  cylinders  only. 
The  spheres  are  always  biased  when  in  the  voltage  mode. 

To  set  any  of  these  DAC's,  use  the  appropriate  command: 

•BIAS  n  xx 
.STUB  m  xx 

l  .GUARD  m  xx 

where  n  is  the  sensor  number  (1  thru  4), 
m  is  the  sphere  number  (1  or  2) , 
and  xx  is  a  2*s  complement  8-bit  value  (+127  to  -128). 

The  voltages  output  are  shown  in  Table  4 . 
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Table  4 .  Bias .  Stub  and  Guard  Characteristics 


DAC 

-128 

+127 

GAIN 

OFFSET 

BIAS1 

-35.31 

35.50 

.2777 

.2345 

BIAS  2 

-35.24 

35.55 

.2776 

.2960 

BIAS3 

-35.23 

35.45 

.2772 

.2515 

BIAS4 

-35.19 

35.58 

.2776 

.3360 

STUB1 

-  1.21 

1.25 

.  0096 

.0210 

STUB2 

-  1.23 

1.22 

.0096 

-.0030 

GUARDI 

-35.20 

35.41 

.2769 

.2415 

GUARD2 

-35.33 

35.47 

.2776 

.2075 

Analog  to  Digital  Conversion  • 

Selected  potential  difference  measurements  as  well  as  analog 
outputs  of  filter  banks,  the  potentials  of  each  sensor,  and  other 
analog  quantities  such  as  boom  lengths,  motor  currents,  etc.  are 
fed  through  two  multiplexors,  one  for  telemetry  sampling  by  the 
MAIN  computer  and  one  for  high  rate  sampling  by  the  BURST 
computer. 

Each  multiplexor  is  followed  by  a  pair  of  op  amp  circuits, 
one  with  unity  gain  and  the  other  with  a  gain  of  about  50.  The 
outputs  of  these  circuits  are  then  fed  into  a  final  multiplexor 
with  which  the  processor  can  select  one  signal  for  digitization. 

The  gain  decision  for  the  MAIN  computer  is  performed  in  software 
by  actually  digitizing  the  low  gain  value  and  then  re-digitizing 

£ 

either  the  high  or  low  gain  value.  On  the  BURST  computer  system, 

the  gain  decision  is  made  automatically  by  comparators  whose  i 

outputs  drive  the  last  multiplexor. 

The  output  of  these  final  multiplexors  go  to  fast  12-bit  A/D 
converters,  one  for  each  computer  system. 

The  computed  gain  of  the  "times  50"  amplifiers  is  51.12  and 
-49.75  for  the  MAIN  and  BURST  systems,  respectively. 
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General 


The  instrument  digital  section  consists  of  two 
microprocessor  systems  arranged  in  a  master-slave  relationship. 
The  master  processor,  called  the  MAIN  processor,  is  responsible 
for  most  of  the  mission  operations,  namely  telemetry  formatting, 
command  reception  and  execution,  sensing  burst  conditions,  boom 
deployment,  current  sweeps  and  other  control  items.  The  slave 
microprocessor,  called  the  BURST,  is  responsible  for  high 
frequency  data  sampling  and  storage. 

The  MAIN  system  consists  of  a  SANDIA  3000  microprocessor 
which  is  a  radiation  tolerant  version  of  the  Intel  8085  only  in 
CMOS.  On  the  system  buss  is  8K  bytes  of  ROM  and  4K  of  RAM,  plus 
a  host  of  input  and  output  ports,  of  course. 

The  BURST  system  also  uses  a  SANDIA  3000  processor  but  has 
only  half  the  amounts  of  ROM  and  RAM  in  which  to  store  programs; 
i.e.  4K  bytes  of  ROM  and  2K  of  RAM.  In  addition  to  the  normal 
RAM,  the  BURST  system  includes  a  memory  unit  of  192K  bytes  used 
for  storing  bursts  of  digitizations  which  it  later  plays  back  to 
the  MAIN  system  on  request. 


A 
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Mode  Control 


The  Main  computer  controls  the  mode  of  the  spherical  sensors 
in  two  ways,  either  automatically  or  manually.  The  mode  of  these 
sensors  appears  in  the  Fast  Digital  Monitor  data. 

The  executive  will  automatically  switch  modes  back  and  forth 
at  programmable  time  intervals  (measured  in  the  number  of 
spacecraft  rotations) .  These  intervals  are  selected  using  the 
command : 

.EMODE  n  m 

This  instructs  the  instrument  to  operate  for  2**(n-l)  spins 
of  the  current  mode  and  2**(m-l)  spins  of  the  voltage  mode.  If 
either  n  or  m  is  zero,  the  corresponding  mode  is  not  used.  If  n  = 
m  =  0,  mode  switching  is  disabled.  For  example,  to  select 
voltage  mode  only  use  ".EMODE  0  1"  .  The  default  is  ".EMODE  7  7" 
which  means  the  instrument  will  flip  modes  every  64  spins  (32 
minutes) . 

The  executive  changes  the  modes  only  at  the  beginning  of  a 
spin  period,  phased  with  the  spin-fitting  software  so  that  no 
data  is  lost.  The  first  mode  change  occurs  at  the  first  spin 
period  boundary  following  the  EMODE  command  entry. 

Two  vestigial  commands  worth  noting  are  as  follows: 

. VMODE  selects  the  Voltage  mode  and 

.IMODE  selects  the  Current  mode. 

As  soon  as  these  commands  are  entered,  the  instrument  will 
flip  all  the  necessary  relays  and  multiplexors  in  order  to 
configure  itself  for  that  mode.  However,  these  commands  control 
neither  the  current  mode  sawtooth  nor  the  spin-fit  calculations 
(both  of  these  ARE  controlled  in  the  automatic  mode) .  Hence,  if 


18 


you  ask  for  the  IMODE,  you  should  also  enable  the  sawtooth  using 
SAW  commands.  And  if  you  ask  for  the  VMODE,  you  probably  will 
want  to  enable  the  spin-ftting. 

The  MAIN  computer  can  configure  the  instrument  such  that  the 
health  of  nearly  all  of  the  sensor  electronics  can  be  determined. 
This  automatic  test  sequence  can  be  invoked  using  either  the 
".TEST"  or  ".CALIBRATE"  commands.  The  sequencer  begins  at  the 

•  start  of  a  telemetry  major  cycle  (every  32  seconds)  and  lasts 
about  a  minute.  Simultaneous  measurements  of  VI  thru  V4 ,  their 
voltage  differences,  the  BIASing  circuitry  and  so  forth  are 
recorded  by  both  the  MAIN  and  the  BURST  circuitry.  The  TEST 
sequence  requires  about  1  minute,  including  the  BURST  playback 
time. 

Telemetry  Processing 

The  MAIN  computer  processes  telemetry  for  both  the  Langmuir 
Probe/Electric  Field  part  of  the  instrument  and  the  Fluxgate 
Magnetometer  part.  Hence,  there  are  two  separate  and  independent 
telemetry  formats,  one  for  each  function,  which  share  the  total 
telemetry  allotment  from  the  spacecraft.  These  formats  are 
detailed  in  Figures  2  through  6  in  the  software  chapter  and  are 
further  described  below. 

*  L-Probe/E-Field  (LPEF)  Formatting.  The  LPEF  part  of  the 
telemetry  is  a  table  driven  (and  therefor  programmable)  format. 
Two  tables,  called  HX  and  LX,  define  the  High  Rate  and  Low  Rate 
sampling  profile,  respectively.  The  HX  table  defines  16  channels 
through  which  any  quantity  available  to  the  MAIN  processor  can  be 
sampled  at  4  Hz.  Similarly,  the  LX  table  defines  32  channels 
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through  which  any  quantity  can  be  sampled  at  1  Hz. 

The  MAIN  computer  manages  16  16-byte  formatting  tables  in 
memory,  10  in  ROM  and  6  in  RAM.  The  ten  ROM  formats  are 

numbered  0  thru  9,  while  the  six  RAM  formats  start  at  10.  (Of  the 

10  ROM  formats  designed  into  the  software,  only  3  were  actually 

filled,  namely  0,  1  and  2.)  To  select  which  format  tables  to 

use,  there  are  three  commands: 

. FORMAT  n  m 
. VFMT  n  m 

. IFMT  n  m  . 

where  n  is  the  table  to  use  for  the  HX  list  and  m  is  the  table 
for  the  LX  list.  FORMAT  says  that  the  list  is  to  be  used  in  both 
Voltage  and  Current  modes.  VFMT  says  the  list  is  to  be  used  ONLY 
in  the  Voltage  mode,  and  IFMT  says  the  list  is  to  be  used  ONLY  in 
the  Current  mode.  These  provide  the  capacity  to  have  different 
sampling  formats  for  different  modes. 

The  six  RAM  lists  are  located  in  a  continuous  section  of 
memory  which  is  64  bytes  long.  To  load  a  format  one  uses  the 
"INDEX  n"  command  which  selects  location  n  (0  <  n  <  64)  and  "QTY 
q"  which  describes  what  to  sample.  For  example,  to  load  format 

11  with  alternating  VI  and  V2F  samples: 

.INDEX  16 

.QTY  VI  * 

•QTY  V2F 

.QTY  VI 

•QTY  V2F 

.QTY  VI 

.QTY  V2F 


.QTY  VI 
.QTY  V2F 
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Each  channel  descriptor  "q"  can  be  either  a  MAIN  multiplexor 
quantity  or  what  we  call  a  RAM  quantity.  To  select  a  multiplexor 
value,  simply  name  the  quantity,  such  as  "VI"  or  "V2F"  above. 

RAM  quantities  are  simply  values  taken  from  the  memory  of 
the  MAIN  computer  system.  These  are  of  interest  mainly  for 
diagnostic  purposes  when  it  is  important  to  have  a  high  bandwidth 
of  information  regarding  some  variables  in  the  computer  memory. 
Since  there  is  a  lot  of  RAM  and  only  6-bits  of  possible 
indexation,  the  RAM  quantities  use  a  programmable  16-bit  base 
address  called  RAMBASE.  The  6-bits  are  added  to  RAMBASE  to 
produce  an  effective  address  from  which  13-bits  are  retrieved 
(low  byte  first  then  5-bits  of  the  high  byte) . 


MAIN  MEMORY 


RAMBASE — > 


1  0 
!  1 
!  2 


I  . 

1  . 

_ i 

!  m 

1  !  m+1 

i _ i 


•  • 

•  • 

!  62 
!  63 


To  select  a  RAM  quantity  0  thru  63,  use  the  for  " . QTY  RAM+n".  To 
set  the  value  of  RAMBASE,  use  the  command 
.RAMBASE  n 


(This  allows  11-bit  values  to  be  loaded  into  RAMBASE.  For  other 
values,  use  the  .LOAD  facility). 


Finally,  quantity  descriptors  include  one  bit  which,  if  enabled, 
allows  playbacks  to  preempt  them.  To  indicate  that  playbacks  may 
preempt  the  channel,  add  "PE”  to  the  command.  For  example, 

.QTY  VI  PE 


Sawtooth  Generation.  In  the  Current  mode,  the  MAIN 
computer's  SAWTOOTH  module  is  enabled  by  the  executive  program  to 
generate  linear  sweeps  on  the  sphere  BIAS  voltages. 

Playbacks.  There  are  two  basic  types  of  playbacks,  those 
from  the  MAIN  and  those  from  the  BURST.  MAIN  transmissions  always 
take  priority  over  BURST  playbacks  since  the  latter  take  much 
longer.  One  bit,  called  the  "MAIN/BURST  XMIT"  bit,  is  used  to 
distinguish  between  these  two  in  the  telemetry  stream. 

While  decoding  playback  telemetry,  one  must  watch  for 
transitions  between  the  states  of  this  "MAIN/BURST  XMIT"  bit. 
For  example,  if  the  BURST  is  playing  back,  one  must  switch  to  a 
MAIN  playback  if  the  MAIN/BURST  XMIT  bit  goes  to  a  1  (MAIN) . 

If  the  "MAIN/BURST  XMIT"  bit  starts  out  as  1,  the  lower 
priority  BURST  transmission  will  not  override  it  and  will  follow 
immediately  after  the  MAIN  playback  finishes. 

Command  Reception 

The  chief  command  capabilities  of  the  instrument  are 
implemented  via  the  serial  digital  commands.  Each  command  is  a 
16-bit  value  which  is  shifted  into  the  instrument  using  a 
standard  CLOCK,  DATA,  and  STROBE  protocol  (see  the  CRRES-225 
document) .  Each  command  interrupts  the  MAIN  processor  which 
either  executes  it  or  passes  it  to  the  BURST  processor  for 
interpret at ion . 

Hex  Digit  Commands.  The  command  capabilities  while  in  orbit 
are  incredibly  limited  compared  to  those  available  through  the 
Ground  Support  Equipment. 

Commands  are  uplinked  to  the  spacecraft  in  what  is  called  a 
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"command  pass",  which  ranges  from  a  few  minutes  to  hours  in 
duration.  Prior  to  a  command  pass  is  a  command  planning  meeting 
in  which  all  command  sets  are  determined.  These  command  sets  are 
relayed  to  the  specific  ground  station  (worldwide)  which  will  be 
in  contact  with  the  spacecraft.  Voice  communication  is  used 
between  the  Sunnyvale  operation  and  the  ground  station  in  order 
to  invoke  specific  command  sets  as  needed. 

The  primary  limitation  with  the  system  is  that  one  cannot 
send  an  arbitrary  command  to  an  instrument  in  real-time.  (One 
could  concieve  a  plan  in  which  one  sent  all  permutations  of  16- 
bits  to  the  ground  station,  but  there  is  a  1000  command  limit  per 
instrument.)  To  get  around  this  problem,  seventeen  "hex-digit" 
commands  were  incorporated  into  the  instrument.  These  commands 
are  simply  the  digits  plus  an  "enter"  command.  To  send  any  16- 
bit  command,  one  must  convert  the  command  bits  into  a  series  of 
hex  digit  commands.  The  on-board  microprocessor  will  act  on  a 
string  of  digit  commands  just  as  if  it  had  received  the  standard 
serial  input  command. 

For  example,  to  enter  the  16-bit  command  '5678'  one  would 

send  the  following  sequence  of  hex  digit  commands: 

DIGIT  5 
DIGIT  6 
DIGIT  7 
DIGIT  8 
ENTER 

This  method  is  obviously  slow  (as  many  as  five  commands  will 
have  to  be  sent  instead  of  one) ,  and  error  prone  (five  times  the 
error  rate  of  one)  ,  but  it  is  the  only  way  to  do  real-time 
commanding  given  the  design  of  the  ground  stations  we  must  use. 
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Burst  Sampling  Formats 


Just  as  there  are  16  sampling  formats  available  to  the  MAIN 
processor,  16  have  been  implemented  in  the  BURST  system.  As  in 
the  MAIN,  10  formats  (0  thru  9)  are  located  in  ROM  and  therefor 
cannot  change.  The  remaining  six  sample  formats  (A  thru  F)  are 
programmable  on  the  fly.  But  unlike  the  MAIN,  the  BURST  system 
provides  sampling  formats  of  varying  length.  They  can  have  as 
few  as  zero  and  as  many  as  64  quantities.  (Note:  The  total  number 
of  quantities  in  the  6  RAM  lists  is  limited  to  64.) 

The  procedure  for  requesting  a  sampling  list  involves  two 
separate  operations,  that  of  1)  list  selection  and  2)  list 
definition.  To  select  a  format  to  be  sampled,  one  uses  the 
command  "BFMT  n" ,  where  n  is  0  thru  9  for  the  ROM  formats  and  10 
thru  15  for  the  RAM  formats. 

To  define  a  RAM  list,  first  select  the  list  you  want  to 
define  and  then  enter  the  sample  series  Ql..Qn  using  the  " BQTY  q" 
command  as  follows: 

BFMT  f 

BQTY  ql 

BQTY  q2 

BQTY  q3 

• 

BQTY  qn 

The  format  number  "f"  must  be  in  the  range  10  thru  15 
decimal  in  order  for  anything  to  change.  (You  can't  change  ROM, 
of  course) . 

Once  defined,  sample  formats  may  be  selected  at  will  by 
using  the  BFMT  command;  i.e.  you  don't  have  to  re-define  the  RAM 
list  each  time  you  use  it.  You  can  switch  around  between  the 
different  ROM  and  RAM  formats  as  conditions  may  warant. 


Upon  reset,  the  BURST  cpu  defines  the  RAM  formats  by  copying 
an  area  of  its  ROM  over  into  the  RAM  lists.  This  provides  for 
the  immediate  use  of  all  16  formats  by  the  user  from  the  start. 
These  formats  are  given  in  table  5. 

Table  5.  Burst  De fault  Sampling  Formats 
FORMAT  QTY  LIST  DESIRED  FREQUENCY 


0.  V12/RI1  60  KHZ 

1.  V12/RI1  30  KHZ 

Vl/SC 

2.  V12/RI1  30  KHZ 

V34 

3.  V12/RI1  20  KHZ 

V34 

Vl/SC 

4.  V12/RI1  120  HZ 

V34 

BX 

BY 

BZ 

5.  BZ 
BX 
BY 
V3 
V4 
V34 

V34  AC 

vise 

V12/RI1  AC 

V2 

VI 

V12/RI1 

DIRECT 

AGCU 

GUARD 

STUB 

6-F .  [EMPTY] 
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Burst  Sample  Frequency  Control 

The  BURST  computer  is  capable  of  sampling  a  list  of 
quantities  at  a  number  of  frequencies  up  to  60  KHz.  These 
frequencies  are  listed  in  the  Table  below.  It  is  important  to 
observe  that  the  frequency  is  for  the  whole  list,  not  individual 
quantities,  and  thus  the  size  of  the  sample  list  defines  the 
maximum  frequency  at  which  it  can  be  sampled. 

The  command  which  set  the  BURST  sample  frequency  is 

BFREQ  f 

where  f  is  a  frequency  code  from  0  to  15.  (See  the  table  below 
for  the  equivalent  frequency.)  If  a  frequency  is  requested 
which  is  greater  than  the  maximum  for  a  given  list,  the  BURST 
processor  will  sample  the  list  at  the  highest  frequency  possible 
for  that  list.  Thus  "BFREQ  15"  always  guarantees  that  a  list 
will  be  sampled  at  the  very  highest  sample  frequency  possible. 

Burst  playbacks  always  contain  the  ACTUAL  frequency  code  of 
the  playback  data,  not  what  was  commanded.  Thus,  there  can  be  no 
confusion  over  the  sample  frequency  of  playback  data. 

The  frequency  code  is  independent  of  the  sampling  lists  so 
that  one  does  not  need  to  re-command  the  frequency  when  one 
changes  lists.  Also,  the  frequency  code  is  not  modified  by  the 
BURST  cpu  even  when  it  describes  a  frequency  which  is  impossible 
for  a  given  list.  Thus,  one  can  set  the  frequency  either  before 
or  after  one  defines  or  selects  the  sample  list  without  fear  that 
these  other  commands  may  effect  the  frequency. 
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Table  6.  Burst  Frequencies 


CODE 

FREQUENCY  (Hz) 

QTY  LIMIT 

15 

62,500 

1 

14 

62,500 

1 

13 

31,250 

2 

12 

20,833 

3 

11 

15,625 

4 

10 

10,417 

6 

9 

6,250 

10 

8 

3,125 

20 

7 

2,000 

30 

6 

1,000 

60 

5 

500 

64 

4 

200 

64 

3 

100 

64 

2 

50 

64 

1 

20 

64 

0 

10 

64 
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2 .  Software 


This  chapter  describes  the  software  for  both  the  Langmuir 
Probe  Instrument  (AFGL-701-14)  and  the  Fluxgate  Magnetometer 
(AFGL-7 01-13)  .  This  is  such  a  large  task  that  it  requires  its 
own  chapter,  one  that  is  separate  from  the  scientific  and 
hardware  oriented  descriptions  of  the  instrument.  At  the  same 
time  it  would  be  unwise  to  clutter  these  other  descriptions  with 
the  particulars  of  the  instrument's  inner  mechanisms. 

Both  the  MAIN  computer  and  the  BURST  computer  programs  are 
modularized  according  to  the  best  description  of  their  function. 
For  example,  the  electric  field  module  (ELE.A)  handles  all  E- 
Field/Langmuir  telemetry  formatting  and  commands  dealing  with 
that  part  of  the  instrument.  The  magnetometer  data  formatting 
and  commands  are  handled  by  the  MAG. A  module,  etc.  Table  7 
provides  a  list  of  the  modules  in  the  system.  The  balance  of  the 
chapter  describes  the  detail  for  each  module. 
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Table  7 .  MAIN  and  BURST  software  modules 
MAIN  Major  Function 


EXEC. A 

Executive  Program 

10. A 

Input/Output  Module 

BKG.A 

Background  Processing  Manager 

ELE.A 

Electric  Field/Langmuir  Probe  Manager 

MAG.  A 

Magnetic  Field  Manager 

UTIL. A 

Small  Utilities 

DEP.A 

Deployment  Manager 

PLA.A 

Plasma  (Low  Energy)  Instrument  Manager 

LD.A 

Program  Load  Manager 

BUR.  A 

BURST  Triggering  Manager 

SWP.A 

Bias  Sweep  Manager 

FIT. A 

Spin  Fitting  Manager 

SPIN. A 

Spin  Fit  Calculator 

MATRIX. A 

Matrix  Solver 

TRIG.  A 

Trigonometric  Functions 

FFP.A 

Fast  Floating  Point  Utility 

BURST 

Major  Function 

BEXEC.A 

Executive  Program 

BIO.  A 

Input/Output  Module 

BCMP.A 

Burst  Microcode  Compiler 

BSMP.A 

Sampling  Control  Module 

BFMT.A 

Format  Manager 

BLD.A 

Program  Loading  Manager 
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2 . 1  Main  Executive  Module 


The  executive  module  is  responsible  for  coordinating  the 
activities  of  the  Main  computer  system  and  its  slave,  the  Burst 
system.  It  forms  the  "foreground"  part  of  the  instrument,  that 
part  in  which  non-real-time  calculations  such  as  spin-fits  can  be 
done.  While  instrument  "autonomic"  functions  like  sampling  and 
telemetry  formatting  proceed  in  the  "background"  under 
interrupts,  the  foreground  is  free  for  data  analysis,  mode 
switching  decisions,  ground  loaded  programs,  etc. 

The  EXEC  module  is  responsible  for  the  following  functions: 

1)  Defining  the  instrument  initial  state; 

2)  Controlling  the  instrument  mode  switching  (Langmuir  Probe 
versus  E-Field  versus  CALIBRATE) ; 

3)  Coordinating  the  mode  switching  with  on-orbit  spin 
fitting  and  bias  sweeps; 

4)  Running  ground  loaded  programs. 

The  MAIN  module  has  the  following  entry  points  : 

EXEINIT  Jumped  to  when  the  processor  is  reset. 

EXEANG  Called  when  the  background  has  changed  the  sun  angle. 
On  Entry:  [A]  =  new  sun  angle. 

EXEDSC  Called  when  the  Digital  Subcom  wants  a  status  word  from 
the  EXEC  module.  On  Entry:  [A]  is  the  index  into  the 
status  word  requested.  On  exit,  [A]  contains  the 
status  byte. 

INITIALIZATION  /  EXECUTIVE  LOOP.  The  module  1)  clears  the 
RAM,  2)  initializes  all  of  the  modules  it  controls,  3)  sends  in  a 
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command  sequence  to  define  the  initial  instrument  state,  4) 
resets  the  "EXEVECT"  to  null  and  5)  begins  the  MAIN  executive 
loop.  In  this  loop,  it  checks  to  see  if  the  executive  vector  has 
been  armed,  and  executes  the  vector  is  so.  This  allows  ground 
loaded  programs  to  gain  control  of  the  foreground  (otherwise 
programs  run  1  interrupt  deep) .  The  executive  loop  mainly  just 
calls  three  routines  to  share  the  CPU  between  the  spin  fitting 
(FITEXEC)  ,  the  bias  sweeping  (SWPEXEC)  and  the  mode  decision 
(DECMODE) . 

A  technique  is  used  in  this  executive  loop  to  lower  the 
power  of  the  system  by  1)  halting  the  processor  when  it  is  not 
being  used  and  2)  by  stopping  in  RAM  not  ROM.  This  latter  part 
works  because  the  ROMS  are  turned  ON  only  when  they  are 
addressed,  so  to  turn  them  OFF,  one  simply  has  to  stop  the  CPU  in 
the  RAM. 

MODE  DETERMINATION.  The  executive  mode  switching  is 
controlled  by  two  16  bit  counters  called  VTIME  and  ITIME  and  a  16 
bit  register  called  MODTIM.  VTIME  and  ITIME  are  the  number  of 
spins  in  which  the  instrument  should  be  in  either  the  Voltage  or 
the  Current  mode.  MODTIM  is  the  count  remaining  in  the  present 
mode. 


The  EMODE  command  simply  loads  VTIME  and  ITIME  with  the 
2**N-1  calculations  (as  described  in  the  LP.DOC).  It  also  sets 
MODTIM  to  1  so  that  the  mode  will  switch  in  the  next  spin  period. 
If  one  chooses  to  operate  the  instrument  with  other  timing,  one 
merely  has  to  load  values  for  VTIME  and  ITIME  using  the  loader 


32 


commands . 


Mode  switching  is  performed  by  a  combination  of  the  EXEANG 
and  DECMODE  routines.  The  EXEANG  routine  compares  the  current 
sun  angle  reported  by  the  background  to  the  angle  at  which  the 
mode  can  be  switched  (CHGANG) .  This  mode-change-angle  is 
initially  set  to  the  beginning  of  V12  spin  fits  less  11  degrees, 
or  1/2  the  period  between  fit  samples.  When  the  sun  angle  equals 
the  selected  angle,  MODTIM  is  decremented.  DECMODE  simply  checks 
for  MODTIM  ==  0  to  decide  to  change  the  mode.  (Note:  EXEANG  runs 
in  the  background  and  DECMODE  in  the  foreground.  Since  spin  fits 
and  bias  sweeps  are  occurring  in  the  foreground,  one  cannot  be 
sure  to  "see"  every  spin  angle  from  the  foreground.) 

CALIBRATE  SEQUENCING.  The  TEST/CALIBRATE  command  is 
implemented  by  sending  in  a  series  of  commands  just  like  the 
initializing  sequence.  The  CALSEQ  is  the  list  of  commands  which 
implement  the  test  mode.  Delay  timing  is  implemented  using  a 
modified  CALIBRATE  command  (91xx  instead  of  90xx) .  The  delay 
routine  "SYNCWT"  implements  this  command  which  simply  waits  until 
the  minor  frame  matches  the  data  portion  of  the  command.  By 
inserting  these  "SYNC"  commands  in  the  CALSEQ,  one  can  set  the 
timing  of  the  events. 
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2 . 2  Background  Management 

The  Main  Computer  system  cpu  time  is  subdivided  into  the 
standard  foreground/background  processing  profile.  Management  of 
the  background  (interrupts)  is  accomplished  in  a  single  module 
which  organizes  and  further  subdivides  cpu  time  between  the 
several  modules  which  operate  in  the  background. 

The  major  functions  of  background  management  are  in 
telemetry  formatting,  command  reception,  time  and  sun  angle 
determination.  Other  functions  include  cycling  the  Kelley 
AutoGain  circuit,  and  sampling  instrument  temperatures  for  the 
digital  subcom.  The  background  manager  calls  each  of  its  modules 
when  its  time  for  them  to  sample  some  data  or  to  telemeter  some 
data. 

The  timing  requirements  implemented  by  the  module  are  in 
Table  8.  The  sampling  schedule  is  defined  in  Figure  1,  and  the 
real-time  telemetry  formats  are  given  in  Figures  2  through  4. 

Table  8 .  Module  Sampling  Freguencies 

Frequency  Action 

16  Hz  :  Sampling  of  BX,BY,BZ 

32  Hz  :  Sampling  of  LEPA 

32  Hz  :  Sampling  for  burst  Triggering 

64  Hz  :  High  Rate  Electric  Field  (HX) 

32  Hz  :  Low  Rate  Electric  Field  (LX) 

64  Hz  :  Sawtooth  Generator  for  Langmuir  Mode 

64  Hz  :  Command  Execution 

64  Hz  :  Sun  Angle  Phase  Lock  Loop 

8  Hz  :  Deployment 
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Theory  of  Operation 

The  background  manager  handles  hardware  interrupts  from 
instrument  commands,  major  frames,  word  timing  and  the  watchdog 
circuit  as  described  below: 

WORD  RATE  INTERRUPTS.  Every  other  word  clock  from  the  spacecraft 
provides  a  Word  Rate  interrupt  to  the  background  manager.  This 
is  used  to  update  the  instrument  word  count  within  the  minor 
frame.  If  it  is  an  even  interrupt,  one  of  64  routines  will  be 
chosen  depending  upon  the  value  of  the  count.  If  armed,  the 
background  manager  vectors  to  the  address  contained  in  BKGVECT  on 
all  odd  interrupts. 

The  BKG  module  has  been  implemented  in  such  a  way  as  to  keep 
the  telemetry  formatting  modules  ignorant  of  the  specific 
telemetry  format.  Sampling  calls  and  calls  for  data  bytes  are 
done  separately  so  that  each  sub-module,  like  ELE.A  or  MAG. A, 
doesn't  know  where  in  the  minor  frame  the  data  is  going.  ELE.A 
and  MAG. A  only  know  how  much  data  to  produce  per  sample  call.  In 
this  way,  changes  to  the  telemetry  format  (for  the  next 
instrument)  should  be  simple. 

The  Digital  Subcommutator  (DSC)  output  is  formatted  in  the 
BKG  module  by  the  "DSC"  routine.  Using  the  list  DSCTAB,  this 
routine  calls  in  turn  each  of  the  many  modules  which  report 
status  in  the  DSC  data.  Each  module  is  handed  an  index  in  [A] 
and  returns  a  byte  in  [A]  which  goes  into  the  telemetry.  Each 
module  is  therefore  ignorant  of  the  format  of  the  DSC  other  than 
that  of  its  own  data.  No  module  knows  where  in  the  DSC  its  data 
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appears. 


Along  with  telemetry  formatting  and  data  sampling  calls,  the 
word  interrupts  provide  the  basic  timing  for  the  sun  angle  phase 
locked  loop,  command  execution,  sawtooth  generation,  calls  to  the 
low  energy  plasma  calculator,  sampling  of  boom  lengths  and 
temperature  monitors,  and  Kelley  gain  circuit  pulsing. 

MAJOR  FRAME  INTERRUPTS.  Every  four  seconds,  the  major  frame 
interrupt  occurs.  These  interrupts  used  to  synchronize  the 
telemetry  word  count  with  the  spacecraft  as  well  as  to  internally 
synchronize  the  data  sampling  packages  such  as  ELE  and  MAG.  The 
40-bit  instrument  clock  is  updated  during  the  major  frame 
interrupts . 

COMMAND  INTERRUPTS.  Command  interrupts  occur  as  soon  as  the 
spacecraft  command  begins  to  shift  into  the  instrument.  The 
software  merely  notes  that  a  new  command  will  be  arriving  soon. 
The  actual  command  processor  is  a  routine  which  runs  under  the 
word  rate  clock  interrupt. 

WATCH  DOG  INTERRUPT.  The  " watchdog”  is  a  simple  circuit  which 
counts  major  frames  and  is  reset  by  a  bit  on  one  of  the  output 
ports.  If  two  major  frames  occur  while  the  watchdog  has  not  been 
reset,  the  watchdog  fires  a  TRAP  type  interrupt.  Normal 
processing  of  the  telemetry  includes  periodic  pulsing  to  the 
reset  line  on  the  watchdog.  A  loss  of  this  reset  pulse  means 
that  the  software  has  crashed  for  some  reason,  so  the  background 
manager  simply  resets  the  processor  when  this  occurs. 

There  are  several  entry  points  for  the  background  manager, 
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most  of  which  perform  some  utility  function  of  the  background. 
These  as  described  below: 

CMDGO.  This  entry  point,  called  by  software  restart  6,  executes 
a  command  in  the  [HL]  registers  as  if  the  command  just  came  from 
the  ground.  This  is  used  for  internal  module  to  module  controls. 

BKGFN(l).  This  call  (software  restart  4  with  [A]  =1)  is  a  batch 
command  processor  which  executes  a  list  of  commands  terminated 
with  a  OFFFFH  command.  On  entry,  [DE]  address  a  list  of  commands. 

BKGFN ( 2 ) .  Function  2  is  a  request  of  the  command  count  status. 
If  the  command  count  matches  what  it  is  supposed  to  match  then  a 
zero  is  returned  in  the  [A]  register.  If  the  command  count  is 
incorrect,  [A]  is  returned  with  1. 

BKGFN ( 3 ) .  Restart  4  with  [A]=3  is  a  call  to  the  STVECT  routine. 
If  [HL]  contain  a  non-zero  address,  the  background  vector  BKGVECT 
is  set  to  [HL] .  If  [HL]  is  zero,  BKGVECT  is  reset  and  disarmed. 
As  described  above,  the  BKGVECT  routine  is  called  every  odd  word 
interrupt  (which  is  every  2  milliseconds) . 

BKGFN  ( 4 )  .  The  fourth  function  on  restart  4  is  the  STEXP 
function.  On  entry,  [HL]  points  to  a  data  block  of  [DE]  bytes. 
The  STEXP  routine  starts  playing  bytes  from  this  block  into  the 
EXP  telemetry  slot.  (EXP  is  the  undefined,  Experimental  output 
which  resulted  from  a  decrease  in  the  magnetometer  telemetry 
allocation. ) 
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INITIALIZATION.  The  BKGINIT  entry  enables  the  interrupts  and 
initializes  variables  internal  to  the  module  so  that  it  works 
correctly.  Modules  which  are  subordinate  to  the  background 
module  are  initialized  so  they  too  are  guaranteed  to  work  when 
called  upon. 

The  BKG  module  waits  for  the  first  major  frame  spike  to  enable 
word  interrupts  so  that  the  telemetry  comes  "up"  in 
synchronization.  Depending  upon  when  the  instrument  is  turned 
ON,  this  may  take  up  to  one  major  frame  time  to  start  processing 
(4.096  seconds).  During  this  time,  commands  will  not  be 
recognized. 

COMMAND  EXECUTION.  Commands  are  executed  by  vectoring  through  a 
32  element  table  called  CMDTAB  using  the  upper  5  bits  of  the 
command.  Each  command  routine  is  executed  with  [HL]  holding  the 
command  bits  as  well  as  [A]  redundantly  holding  the  low  8  bits. 
Command  routines  return  carry  if  the  command  was  BAD  and  no-carry 
if  the  command  was  GOOD.  The  BKG  module  keeps  8-bit  counters 
GOODCNT  and  BADCNT  of  the  commands  which  were  so  noted.  If  the 
command  table  has  no  vector  there  (the  address  is  0) ,  the  BADCNT 
is  incremented. 

% ■ 

BACKGROUND  COMMANDS.  The  module  implements  two  types  of 
commands,  namely,  the  "digit"  and  the  "command  count"  commands. 
Digit  commands  emulate  a  hexadecimal  shift  register  having  the 
digits  0  thru  F  and  an  ENTER  key.  Digit  commands  shift  a  hex 
register  left  one  digit  and  add  the  new  digit.  The  ENTER  command 
sends  the  contents  of  the  register  into  the  instrument  as  a  new 
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command.  This  is  designed  to  be  used  with  an  old  command 
capability  of  the  Air  Force  facilities  which  could  not  readily 
send  arbitrary  bit  patterns  to  our  instrument.  Digit  commands 
would  be  used  to  create  arbitrary  bit  patterns  inside  the 
instrument . 

Command-count  commands  are  used  to  check  for  lost  commands 
within  a  long  command  series  from  the  ground.  The  satellite 
control  facilities  cannot  check  each  command  if  they  are  grouped 
in  series.  The  "CMDS"  command  enters  a  count  of  the  commands 
which  will  be  arriving  in  a  block.  This  data  is  put  into  a 
register  called  CMDCNT  while  GOODCNT  and  BADCNT  are  zeroed.  When 
the  block  of  the  expected  length  is  finally  entered,  the  Fast 
Digital  Monitor  will  report  the  result  of  BKGFN ( 2 ) ,  which 
compares  the  expected  count  to  the  good  count.  If  a  command  is 
missed  (satellite  uplink  problems) ,  the  good  count  will  be  too 
small  and  the  Fast  Digital  status  will  report  the  error. 
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Some  of  the  BKG  variables  are  described  below: 

ON-BOARD  CLOCK.  The  BKG  module  maintains  a  40  bit  clock  which 
counts  0.5  milliseconds  (2  KHz).  This  clock  is  defined  as 
follows: 

"DAY24"  "HR225"  "CYCLE"  "FRAME"  "WORD" 

! dddddddd ! hhhhhhhh ! cccccccc 1 j  j  j  mmmmm ! wwwwwwww ! 

i _ i _ i _ i _ i _ i 

where  w  is  the  telemetry  word  within  the  minor  frame, 
m  is  the  minor  frame  within  the  major, 
j  is  the  major  frame  count  (internal), 
c  is  the  count  of  digital  subcom  cycles  since  reset, 
h  is  the  count  of  2.25  hours  since  reset, 
d  is  the  count  of  24  days  since  reset. 

The  clock  is  zeroed  when  the  instrument  is  turned  on  and 
overflows  after  approximately  17  years. 

SPIN  PERIOD.  The  module  keeps  a  16-bit  value  of  the  spin  period 
by  counting  the  number  of  16  millisecond  pulses  between  sun 
pulses.  This  yields  a  value  which  can  describe  spin  periods  of 
up  to  1024  seconds. 

SUN-ANGLE.  The  BKG  module  keeps  a  16-bit  value  of  the  angle 
between  the  sun  sensor  and  the  sun.  The  low  eight  bits  subdivide 
a  spin  in  256  equal  parts  of  1.41  degrees  each.  The  upper  byte 
can  be  used  as  an  overflow  byte  which  shows  that  the  sun  sensor 
is  not  working  (this  occurs  in  shadow) .  The  algorithm  uses  the 
spin  period  value  calculated  above  divided  by  256  (with 
remaindering)  as  a  counter  to  decide  when  to  step  the  sun  angle. 
Below  4.096  second  spin  periods,  the  division  underflows  and 
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causes  the  sun  angle  to  stay  at  zero. 


For  a  30  second  spin,  the  sun  angle  is  accurate  to  1  part  in 
2000  or  .05%  .  During  shadow  periods,  however,  this  error  will 
accumulate  since  the  sun  pulse  will  not  reset  the  angle.  One 
hour  of  shadow  (120  spins)  times  an  accumulated  .05%  error  is 
about  .06  x  360  or  21.6  degrees  (worst  case).  A  typical  error 
value  would  be  half  of  that,  or  10.8  degrees. 
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2 . 3  Electric  Field  Management 

The  ELE  package  manages  the  Electric  Field/Langmuir  Probe 
part  of  instrument  operations.  The  functions  include  sampling, 
telemetry  formatting  and  commanding  the  related  sections  of  the 
instrument.  For  this  module  there  are  the  following  entry  points: 

ELEINIT  :  This  entry  requires  no  parameters  and  initializes  the 
module  for  subsequent  calls.  The  only  thing  this 
entails  is  zeroing  the  electric  field  RAM  area. 

ELEFRAME:  This  entry  tells  the  module  the  minor  frame  time.  On 
entry,  [A]  contains  the  8-bit  frame  count.  The  module 
uses  this  information  to  decide  whether  to  output  SFR 
or  FDM  data,  to  synchronize  the  HX  and  LX  list 
pointers,  etc. 

ELESAMP  :  The  sample  entry  tells  the  module  when  to  take  one  of 
its  analog  samples.  The  ELE  package  requires  16  sample 
calls  per  frame  call.  In  addition,  both  the  even  calls 
and  the  odd  calls  must  be  periodic;  i.e.  even-to-even 
and  odd-to-odd  is  a  constant  length  of  time. 

ELETELEM:  The  telemetry  call  requests  the  ELE  package  to  give 
some  of  its  formatted  data.  On  entry,  the  [A]  register 
contains  0  if  1  byte  is  requested,  1  if  2  bytes  are 
requested.  On  exit,  the  [L]  register  contains  the 
first  byte  and  [H]  contains  the  optional  second  byte  of 
data.  The  ELE  package  produces  20  bytes  of  data  per  16 
samples. 
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ELEDSC  :  Slow  status  of  the  package  can  be  obtained  by  calling 
the  DSC  entry  point.  On  entry,  [A]  is  an  index  into 
the  lists  and  variables  which  the  ELE  package 
maintains.  ELEDSC  returns  its  data  in  the  [A] 
register. 

When  [A]  is  0  to  15,  the  HX  list  is  returned. 

When  [A]  is  16  to  47,  the  LX  list  is  returned. 

When  [A]  is  48  or  more,  the  ELE  variables  are  returned. 
Note  that  the  HX  and  LX  lists  for  E-field  and  Langmuir 
modes  are  output  in  alternating  fashion.  The  LP  lists 
are  output  on  odd  major  cycles. 

ELEXMIT  :  Accesses  the  MAIN  playback  feature  of  the  ELE  package. 

On  entry  :  [HL]->  data  block  of  13-bit  data,  [DE]  is 

the  number  of  samples  to  play. back.  On  the  first  even 
minor  frame,  the  playback  will  begin,  overriding  Burst 
playbacks  if  need  be. 

ELESTAT  :  Returns  the  Fast  Digital  Monitor  in  [A] . 

Theory  of  Operation 

TELEMETRY  SAMPLING/FORMATTING.  The  telemetry  formatting  uses  a 
double-buffered  scheme  with  each  buffer  representing  one  minor 
frame  worth  of  data.  Each  minor  frame  toggles  which  buffer  is  to 
be  used  as  the  input  buffer  and  which  to  be  used  as  the  output 
buffer. 

The  two  types  of  samples,  namely  High  Rate  (HX)  and  Low  Rate 
(LX) ,  are  dumped  into  the  input  buffer  using  two  pointers  called 
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HBPTR  and  LBPTR.  Data  is  read  out  of  the  buffer  using  a  single 
pointer  called  TMPTR.  This  results  in  a  one  minor  frame  delay  in 
the  data  stream  as  samples  which  are  taken  in  even  frames  are 
played  in  odd  frames  and  vice  versa. 


SAMPLES 

TELEMETRY 

HBPTR - 
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Figure  5.  Electric  Field  Telemetry  Buffering 


TMPTR 


Corresponding  with  each  high  or  low  rate  sample  is  a 
quantity  descriptor  which  details  what  value  to  sample  at  that 
time.  The  quantity  descriptors  are  in  lists  which  are  read  using 
HQPTR  and  LQPTR  as  the  samples  are  taken.  These  pointers  are 
reset  to  the  top  of  their  lists  as  required  and  incremented  along 
with  each  use. 
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Hx  List 


Lx  List 


HQPTR - : 


!  15 
•  16 


: - LQPTR 


Figure  6.  Electric  Field  Quantity  Lists 

Each  channel  descriptor  has  the  following  format: 

• • 

Ibrmmmmmmm! 

I _ I 

where  b  =  1  enables  Main  or  Burst  Playbacks  to  replace  this 
channel  when  needed. 

r  =  1  indicates  that  RAM  quantity  #mmmmmm  is  to  be 
sampled  (see  explanation  of  RAM  quantities  below) . 

r  =  0  indicates  that  MAIN  Multiplexor  quantity  fmmmmmm 
is  to  be  sampled. 


RAM  quantities  are  simply  values  taken  from  the  memory  of 
the  MAIN  computer  system.  These  are  of  interest  mainly  for 
diagnostic  purposes  when  it  is  important  to  have  a  high  bandwidth 
of  information  regarding  some  variables  in  the  computer  memory. 
Since  there  is  a  lot  of  RAM  and  only  6-bits  of  possible 
indexation,  the  RAM  quantities  use  a  programmable  16-bit  base 
address  called  RAMBASE.  The  6-bits  are  added  to  RAMBASE  to 
produce  an  effective  address  from  which  13-bits  are  retrieved 
(low  byte  first  then  5-bits  of  the  high  byte) . 


MAIN  MEMORY 


RAMBASE — > 


0 

1 

2 


m 

m+1 

• 
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63 


Figure  7.  Ram  Quantities 


When  the  Burst  playback  is  indicated  by  the  Fast  Digital 
Monitor,  sampling  of  channels  with  their  playback  bit  "b"  enabled 
is  replaced  with  a  BURPLAY  call  to  the  BUR  package.  Depending 
upon  the  state  of  the  playback,  the  BUR  module  may  offer  some  of 
its  Burst  Header  or  may  request  data  from  the  Burst  computer.  In 
either  case,  thirteen  bits  are  stored  in  the  sample  buffer  as 
described  above. 
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When  a  Main  playback  is  indicated,  the  ELEXMIT  facility  is 
invoked.  Samples  are  played  from  the  buffer  pointed  at  by  the 
XMTPTR  variable  until  the  count  held  in  XMTCNT  goes  to  zero. 
When  XMTCNT  is  zero,  zero  fill  data  is  returned  as  a  sample  and 
the  next  FDM  calculation  clears  the  MAIN  transmit  state. 

HQPTR/LQPTR.  The  quantity  list  pointers  are  reset  when  necessary 
to  the  value  contained  in  VHXPTR  and  VLXPTR  when  in  the  E-field 
mode  or  to  IHXPTR  and  ILXPTR  when  in  the  Langmuir  Probe  mode. 
Thus,  if  the  instrument  switches  modes,  the  sampling  list  is 
changed  along  with  it. 

As  all  of  these  pointers  are  16-bit  values,  any  buffer  in 
memory  can  be  used  for  a  telemetry  format.  Six  buffers  of  16 
bytes  each  have  been  allocated  for  this  purpose  in  the  ELE  module 
RAM  area.  This  is  enough  for  complete  redefinitions  of  both  the 
V  and  the  I  mode  telemetry  formats.  Originally,  the  package  was 
defined  with  the  idea  of  having  multiple  ROM  loaded  formats  from 
which  to  choose.  This  would  facilitate  various  tests,  sampling 
modes,  etc.  Ten  format  buffers  of  16  bytes  each  were  planned  for 
the  ROM,  but  only  3  (0,1, and  2)  could  be  accomodated.  The 
"format"  command  was  devised  as  an  address  independent  method  to 
access  these  buffers.  See  the  "format"  command  in  the  general 
instrument  description. 


FAST  DIGITAL  MONITOR  CALCULATION.  Once  every  other  minor  frame 
the  Fast  Digital  Monitor  is  calculated  and  stored  into  the 
samples  buffer.  The  FDM  is  a  conglomeration  of  a  number  of 
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status  bits  which  indicate  the  instrument  mode  (E-field  or 
Langmuir  Probe) ,  playback  mode  (Main,  Burst  or  Real-time) ,  etc. 
The  format  of  the  FDM  is  given  in  Figure  ELE-1 .  These  status 
bits  are  collected  by  calling  the  various  modules  responsible  for 
the  bits;  i.e.  the  BUR,  SWP,  and  BKG  modules. 

COMMANDS.  Commands  are  vectored  through  the  command  vector  table 
to  routines  contained  in  the  ELE  package.  Most  of  these  commands 
are  simple  calls  to  the  10  package  to  perform  some  function  such 
as  setting  the  bias  voltage.  The  software  in  the  ELE  package 
simply  makes  up  the  differences  between  the  external  command 
specifications  and  the  internal  10  call  specifications.  Where  no 
differences  occur,  the  ELE  package  directly  references  the  10 
call . 

The  VMODE  and  IMODE  commands  are  interesting  since  they  are 
actually  command  macros.  When  a  VMODE  command  is  executed,  a 
list  of  commands  are  sent  into  the  command-list  processing 
facility  of  the  BKG  module.  Since  command  lists  are  executed 
only  when  real  commands  are  not  ready,  the  execution  of  a  VMODE 
command  may  occur  after  the  series  of  real  commands  which  follow 
the  VMODE.  One  should  probably  not  use  relay  commands  in  series 
right  after  either  a  VMODE  or  IMODE  command  (i.e.  within  25 
milliseconds) .  This  could  cause  contention  for  the  relay 
hardware. 
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2 . 4  Magnetic  Field  Management 


The  MAG  package  manages  the  Fluxgate  Magnetometer  part  of 

instrument  operations.  The  functions  include  sampling,  telemetry 

formatting  and  commanding  the  related  sections  of  the  instrument. 

For  this  module  there  are  the  following  entry  points: 

MAGINIT  :  This  entry  requires  no  parameters  and  initializes  the 
module  for  subsequent  calls.  It  also  sets  the  mode  of 
the  BY  amplifier  to  0  (BY*1  operation) . 

MAGFRAME:  This  entry  tells  the  module  the  minor  frame  time.  On 
entry,  [A]  contains  the  frame  count.  On  minor  frames 
2,  6,  10,...  the  sampling  pointers  are  resychronized 

while  on  frames  0,  4,  8,...  the  output  pointers  are 

synchronized. 

MAGGAIN  :  This  entry  tells  the  package  to  determine  the  gains 
for  the  three  axes.  Each  axis  is  sampled  in  low  gain 
and  compared  to  l/51th  of  full  scale.  If  less  than 
that,  high  gain  will  be  selected  for  the  SAMP  call.  If 
more,  the  low  gain  sample  will  be  selected. 

MAGSAMP  :  The  sample  entry  tells  the  module  when  to  take  the 
three  axis  measurement  using  the  gains  determined  in 
the  GAIN  call. 

MAGENCD  :  This  entry  tells  the  module  to  buffer  the  data  sampled 
by  the  last  SAMP  call. 

MAGTELEM:  The  telemetry  call  requests  the  MAG  package  to  give 
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some  of  its  formatted  data.  On  entry,  the  [A]  register 
contains  0  if  1  byte  is  requested,  1  if  2  bytes  are 
requested.  On  exit,  the  [L]  register  contains  the 
first  byte  and  [H]  contains  the  optional  second  byte  of 
data . 

The  GAIN/SAMP/ENCD  calls  are  actually  three  parts  of  1  process. 
They  are  split  in  order  to  meet  the  system  requirement  to  stay 
under  1  millisecond  for  background  processes.  The  package 
requires  two  SAMP  calls  per  FRAME  call  and  produces  11  bytes  of 
data  per  FRAME.  (See  Figures  1  through  3). 

Theory  of  Operation 

The  magnetometer  format  involves  buffering  8  triplets  of 
autogain  (BX,BY,BZ),  eight  triplets  of  gain  bits,  as  well  as  1 
triplet  of  (BX,  BY ,  BZ)  taken  in  low  gain.  Four  bits  of  mode 
information  fill  out  the  format  to  44  bytes. 

The  package  uses  a  single  buffer  scheme  in  formatting  its 
data.  Three  pointers  are  required  as  well  as  temporary  storage 
for  gain  registers.  One  pointer,  called  OTPTR ,  is  used  to  read 
out  of  the  buffer.  It  is  reset  to  the  beginning  of  the  buffer  at 
every  frame  divisible  by  4  (1/2  second)  and  is  stepped  every  time 
a  byte  of  magnetometer  data  is  required. 

Two  pointers,  LGPTR  and  AGPTR,  are  used  to  store  data  into 
the  buffer.  Both  pointers  are  reset  at  every  frame  mod  4  equal 
to  2.  This  causes  the  input  buffering  to  be  filling  a  different 
half  of  the  buffer  that  is  being  read  from  by  the  OTPTR.  The 
LGPTR  is  used  to  index  low  gain  storage  while  the  AGPTR  indexes 
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the  auto  gain  storage.  Both  pointers  actually  count  the  number 
of  nibbles  from  the  beginning  of  the  buffer  since  this 
facilitates  storing  12  bit  quantities. 

The  number  of  samples  in  the  autogain  buffer  is  counted  by 
SMPCNT,  which  is  reset  when  the  storage  pointers  are.  On  the 
first  sample  the  low  gain  values  (which  are  taken  for  the  auto¬ 
gain  decision)  are  stored  using  LGPTR.  Otherwise,  all  sample 
triplets  are  stored  using  AGPTR. 

Since  the  sampling  of  autogain  quantities  occurs 
simultaneous  to  the  output  of  previous  gain  decisions,  the  gain 
bits  for  a  given  buffer  are  stored  in  temporary  locations  TMPX 
thru  TMPZ.  On  the  last  sample  of  the  buffer  (all  quantities 
finished)  these  values  are  copied  into  the  output  buffer. 

Mode  information  (4 -bits)  is  buffered  at  the  end  of  the 
first  sample,  following  on  the  heals  of  the  low  gain  storage. 
Mode  bits  are  set  by  the  BMODE  command  to  the  package. 

MAG  COMMANDS.  The  single  command  which  the  MAG  module  knows 
about  is  the  BMODE  command.  The  least  significant  bit  of  this 
command  determines  whether  or  not  the  BY  amplifier  is  engaged  on 
the  Filter  board.  The  software  in  the  MAG  module  simply  calls 
the  10  module  SETMUX  facility  is  response  to  the  BMODE  command. 
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The  PLA  package  manages  the  Low  Energy  Plasma  part  of  the 
instrument  operations.  The  science  requirements  of  this  package 
are  as  follows: 

1)  Whenever  the  ABS(SCBY)  is  less  than  l/8th  ABS(SCBX),  send 
the  LEPA  instrument  a  compressed  calculation  of  SCBZ/SCBX 
plus  current  BURST  mode  information. 

2)  The  software  should  produce  results  at  least  every  64 
milli-seconds. 

3)  Use  appropriate  gain  (high  or  low)  in  producing  the 
calculations. 

Note  that  SCBX,  SCBY,  and  SCBZ  listed  above  refer  to  the  mag 
field  in  the  spacecraft  coordinate  system,  not  the  fluxgate 
outputs.  The  fluxgate  sensor  is  turned  such  that  its  axis 
outputs  correspond  to  spacecraft  coordinates  as  follows: 


SCBX  = 

-  FLUXGATE 

BX 

SCBY  = 

-  FLUXGATE 

BZ  -  .044  FLUXGATE  BY 

SCBZ  = 

-  FLUXGATE 

BY 

The  LEPA  aperture  lies  in  the  spacecraft  XZ  plane  with  Z  along 
the  spin  axis. 

The  system  requirements  for  the  package  are  as  follows: 

1)  The  sample/calculation  time  cannot  exceed  1  millisecond. 

2)  Since  the  spin-axis  measurement  has  a  mode  of 
amplification,  adjust  it  back  to  unity  gain  whenever  the 


amplifier  is  used. 


Specifically,  the  format  for  the  information  transferred  to  the 
LEPA  instrument  is  as  follows: 

•  «  """"""""  « 

16-bit  LEPA  shift  register:  ! lOqqf f f f ! vsnnnnnnl 

i _ » _ i 

where  qq  is  a  status  code  which  indicates  the  condition  of  the 
BURST  sampling. 

qq=  00  =  BURST  OFF 

01  =  BURST  ON,  SEARCHING  AT  FREQUENCY  F 
10  =  BURST  ON,  COLLECTING  AT  FREQUENCY  F 
f  is  a  frequency  code  at  which  the  burst  is  operating. 
(See  General  Description,  "Burst  Sample  Frequency 
Control") 

v  is  a  range  error  bit  if  ABS(BZ/BX)  >=  2. 
s  is  a  sign  bit  of  BZ/BX  (l=negative) 
n  is  32*ABS (BZ/BX) 

For  example,  if  BZ=BX,  n=  100000;  if  BZ=l/2  BX,  n=010000. 

For  this  module  there  are  the  following  entry  points: 

PLAINIT  :  This  entry  requires  no  parameters  and  initializes  the 
module  for  subsequent  calls. 

PLASAMP  :  The  sample  entry  tells  the  module  when  to  take  one  of 
its  analog  samples. 

PLADSC  :  Status  of  the  package  can  be  obtained  by  calling  the 
DSC  entry  point.  The  PLA  package  has  8  bits  of  status 
returned  in  the  [A]  register  as  "esqqffff"  where 
e=0  indicates  the  package  is  enabled 
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s=l  indicates  the  package  is  currently  sending, 
q  and  f  are  as  described  above. 


PLA  PACKAGE  COMMANDS.  The  PLA  package  has  a  single  command, 
called  LMODE,  whose  routine  "PLACMD"  is  referenced  in  the  command 
vector  table  CMDTAB .  The  format  of  that  command  is  as  follows: 

.LMODE  d  where  d=  "eeqqffff" 

will  set  the  q  and  f  fields  of  the  mode  register.  Field  "ee" 
enables/disables  the  entire  package  in  case  a  ram-loaded 
algorithm  is  being  used. 

If  ee  =  10  the  package  is  enabled. 

=  11  the  package  is  disabled. 

=  Ox  (no  change) . 

The  operation  of  the  "ee"  field  seems  a  little  strange.  Why 
go  to  the  trouble  of  an  arming  bit  for  another  bit?  Well,  the 
problem  is  simply  that  the  BUR  module  communicates  its  status  via 
the  LMODE  command.  It  of  course  uses  the  "no  change"  form  of  the 
command  in  case  the  PLA  module  has  been  disarmed  earlier. 
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Theory  of  Operation 


With  the  exception  of  PLASAMP,  the  PLA  entry  points  are 
already  described.  PLASAMP  is  a  routine  which  perforins  the 
following  (note  that  BX,  BY  and  BZ  are  fluxgate  measurements  and 
SCBX,  SCBY  and  SCBZ  are  spacecraft  coordinates) : 

1)  For  each  axis,  the  PLA  package  uses  the  MAG  package 
samples  to  determine  the  field  values  to  16-bit  accuracy 
(2nT  per  bit) . 

a)  If  low  gain  sample,  it  adds  a  low  gain  offset.  If  a 
high  gain  sample  it  adds  a  high  gain  offset. 

b)  If  a  low  gain  sample,  it  then  multiplies  by  51  (18- 
bit  result) . 

c)  For  either  gain,  it  divides  by  4  (16-bit  result) . 

2)  For  the  BY  measurement,  if  the  BY  amplifier  is  ON,  the  BY 
field  value  is  scaled  by  39/256  (1/6.2)  and  inverted. 

3)  Rotation  to  spacecraft  coordinates  is  approximated  by 

a)  ABS (SCBX)  =  BX 

b)  ABS (SCBY)  =  BZ  +  (11/256) *BY 

c)  ABS (SCBZ)  =  BY 

4)  Compares  ABS (SCBX)  with  8*ABS(SCBY)  and  performs  the 
SCBZ/SCBX  calculation  if  the  former  is  greater. 

4a)  Calculates  32*ABS (SCBZ/SCBX)  by  performing  an  8-bit 
divide  of  ABS (SCBZ)  /  2*ABS(SCBX).  The  8-bit  result  is 
then  rounded  and  shifted  to  produce  a  7-bit  result 
which  exceeds  64  if  ABS(BZ)  >  2*ABS(BX). 
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4b)  Valid  6-bit  results  and  masked  7-bit  results  are 
put  into  the  6-bit  mantissa  field  along  with  an 
appropriate  overflow  bit  (0  or  1) . 

4c)  The  sign  of  SCBZ/SCBX  is  calculated  using  an 
exclusive-or  of  the  signs  of  their  field  values. 
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2 . 6  Burst  Processing  Management 


The  BUR  package  coordinates  the  Burst  Sampling  and  Playback 
part  of  the  instrument.  The  functions  include  sampling  of 
conditions  to  determine  when  to  take  a  burst  of  data, 
communicating  with  the  burst  computer  system  to  receive  stored 
data,  and  accepting  commands  for  both  the  module  and  the  BURST 
computer. 

The  science  requirements  for  this  function  are  as  follows: 

1)  Sampling  of  conditions  must  operate  at  a  fixed  rate  with 
a  period  no  greater  than  32  milliseconds,  and  must  continue 
even  while  playing  back  data  to  the  telemetry  system. 

2)  Ram  algorithms  must  be  loadable  from  the  ground  and  there 
should  be  a  selection  of  ROM  algorithms  to  choose  from.  One 
algorithm  must  be  a  simple  clock  which  will  be  used  for  the 
timely  Bursting  during  the  chemical  releases. 

The  system  requirements  for  the  module  are: 

1)  The  module  must  be  provided  some  capability  for  starting 
and  stopping  burst  playback  transmissions. 

The  module  has  the  following  entry  points: 

BURINIT  :  This  entry  requires  no  parameters  and  initializes  the 
module  for  subsequent  calls.  Playback  requests  are 
cleared  and  the  default  burst  duration  set  to  4 
seconds . 
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BURSAMP  :  The  sample  entry  tells  the  module  when  to  take  one  of 
its  analog  samples  with  which  it  will  determine  whether 
or  not  to  take  a  burst  collection,  start  the  playback, 
etc. 

BURPLAY  :  The  telemetry  call  requests  the  BUR  package  to  give 
some  of  its  stored  data.  On  exit,  [HL]  contain  a  13- 
bit  value  for  the  telemetry  stream  if  playback  has  been 
requested.  Otherwise,  [HL]  will  contain  zero. 

BURDSC  :  Status  of  the  package  can  be  obtained  by  calling  the 
DSC  entry  point.  On  entry,  [A]  is  an  index  into  the 
variables  which  the  package  maintains.  Data  is 
returned  in  the  [A]  register. 

Of  special  interest  is  the  most  significant  nibble  of 
DSC (0)  which  contains  the  internal  mode  of  the  package. 
These  4  bits  are  intended  to  be  used  in  the  fast 
digital  monitor  as  an  indicator  of  burst  conditions. 

Theory  of  Operation 

The  burst  module  operates  completely  in  the  background 
(under  interrupts)  trying  to  decide  when  to  take  bursts  of  data. 
As  the  controller  of  the  Burst  computer,  all  commands  to  the 
Burst  computer  go  through  the  BUR  module  in  order  to  keep  the 
module  aware  of  what  is  going  on  with  the  Burst. 

The  module  has  a  state  variable  called  MODFREQ  (mode  and 
frequency)  which  is  used  to  remember  from  one  SAMP  call  to 
another  what  the  state  of  the  Burst  is.  Three  of  the  bits  of 
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MODFREQ  end  up  in  the  Fast  Digital  Monitor  since  they  describe 
the  internal  mode  of  the  BUR  module.  Eight  states  are  defined 
for  the  module  as  follows: 

0  OFF 

1  SEARCH 

2  COLLECT 

3  WAIT 

4  R1 — SENDING  " BGO"  COMMAND  TO  BURST 

5  R2 — RECEIVING  "REAL  FREQUENCY"  DATA 

6  R3 — RECEIVING  "DURATION"  DATA 

7  RO — DELAYING  BEFORE  ENTERING  R1  STATE 

When  any  algorithm  is  selected  using  the  control  command 
(see  below)  ,  the  state  of  the  module  is  set  to  Ri.  The  module 
goes  thru  states  Rl,  R2,  R3  and  ends  up  in  SEARCH. 

In  SEARCH  mode,  each  SAMP  call  simply  vectors  to  the 
selected  algorithm  to  determine  whether  searching  is  over  or  not. 
When  the  decision  is  made  to  end  the  SEARCH  mode,  the  algorithm 
calls  the  "TRIGGER"  routine  which  copies  the  burst  duration 
parameter  into  the  delay  timer  DTIME,  saves  the  "EVENT  TIME"  and 
sets  the  state  to  COLLECT. 

In  COLLECT  mode,  each  SAMP  call  simply  decrements  the  delay 
timer.  When  zero,  the  collection  phase  is  over,  the  "BSTOP" 
command  is  issued  to  the  Burst  computer  and  the  "END  TIME"  is 
recorded. 

Finally,  the  state  is  set  to  "WAIT"  for  the  Burst  computer 
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to  close  its  Burst  memory  file  and  get  ready  to  play  back.  When 
this  occurs,  the  state  is  set  to  "OFF",  the  Burst  is  commanded  to 
play  its  data  back  and  the  playback  bit  is  turned  on  in  the 
MODFREQ  status  byte. 

While  the  playback  bit  is  set,  the  PLAY  entry  point  will  be 
called  each  time  there  is  a  channel  armed  for  playback.  The 
first  thing  played  back  into  the  telemetry  is  the  header  which 
shows  the  algorithm  information  and  so  forth.  After  its  been 
played  out,  the  BUR  module  requests  data  from  the  Burst  computer 
system.  This  is  the  data  portion  of  the  Burst  playback.  See 
Figure  8. 

When  the  Burst  no  longer  has  any  data  to  play  back,  the 
BURPLAY  routine  decides  whether  to  go  into  the  OFF  state  or  back 
into  the  R1  state.  This  depends  upon  the  AUTOSEARCH  bit  in  the 
trigger  mode  word  (set  by  the  BTRIG  command)  .  If  AUTOSEARCH  is 
armed,  then  the  BUR  module  uses  the  RO  state  to  delay  1/2  second 
before  going  into  Rl.  This  makes  sure  that  the  playback  bit  in 
the  Fast  Digital  Monitor  returns  to  zero  in  between  burst 

playbacks - a  fact  required  by  the  telemetry  decoding  in  order  to 

distinguish  between  burst  playbacks. 

COMMANDS.  BUR  commands  fall  into  three  categories:  (1)  Burst  CPU 
commands,  (2)  BUR  algorithm  commands  and  (3)  BUR  control 
commands.  The  first  category  of  commands  is  simply  those 
commands  which  the  Burst  CPU  knows  how  to  perform,  such  as  BFMT 
and  BANKS,  etc.  To  each  Burst  computer  command,  the  BUR  module 
has  a  response  in  terms  of  its  own  state.  That  is  to  say,  if  the 
user  commands  the  Burst  computer  to  play  back  some  data,  the  BUR 
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module  goes  into  the  playback  state  as  well. 


There  are  four  BUR  module  control  parameters:  (0)  trigger 
mode,  (1)  timer  delay  Low,  (2)  timer  delay  High  and  (3)  spare. 
Setting  the  trigger  mode  turns  ON  and  OFF  the  BUR  module,  etc. 
See  the  general  information  for  more  detail  on  what  the  commands 
do. 


The  algorithm  commands  simply  set  the  four  variables  which 
are  available  for  use  by  the  algorithms.  These  are  mostly 
undefined  and  are  intended  for  use  by  the  RAM  algorithms. 

Whenever  any  of  the  control  or  algorithm  parameters  are 
going  to  be  changed,  the  burst  trigger  is  first  set  to  "OFF". 
This  keeps  algorithms  from  being  executed  using  partial 
parameters  and  so  forth.  The  impact  to  the  user  is  that  the  last 
command  should  be  the  setting  of  the  burst  trigger  (BTRIG 
command) . 
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ROM  TRIGGERS.  The  triggers  available  in  the  flight  ROM  are  as 
follows: 

0  OFF 

1  IMMEDIATE  Immediately  begins  collecting. 

2  VALCHECK  Begins  collecting  when  magnitude  of 

SAMPLE (PARAMO)  exceeds  PARAM1 . 

3  MAGCHECK  Begins  collecting  when  the  PLA  module 

detects  the  loss  cone  (it  is  sending)  . 
The  status  of  the  PLA  package  is 
requested  through  its  DSC  function. 

4-7  RAM  RAM  loaded  algorithm. 
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The  FIT  package  controls  the  spin-fitting  of  electric  field 
data.  The  functions  include  sampling  electric  field  data  at 
particular  sun  angles,  calculating  the  sine  wave  least  squares 


fit,  and  telemetering  this  information.  Unlike  other  modules, 
these  operations  are  synchronized  with  the  spin  period  of  th^ 
spacecraft  rather  than  with  telemetry  timing. 

Specifications  for  the  module  are  as  follows: 

1)  32  points  taken  at  even  angles  with  respect  to  the  sun. 

2)  Full  period  capability  only. 

3)  No  bias  changes  should  be  made  during  the  sampling. 

4)  Perform  fits  in  voltage  mode  only 

5)  Sine  wave  fit  the  boom  systems  at  180  degrees 
out  of  phase  with  each  other.  This  will  give  better 
temporal  resolution  (1/2  spin)  of  the  electric  field  if 
the  sphere  and  cylinder  measurements  are  comparable. 
If  they  are  not  comparable,  it  doesn't  hurt. 

6)  Each  fit  has  the  following  results: 

Sine  and  Cosine  components  (floating  pt) 

High  and  Low  gain  offsets  to  the  fit  (floating  pt) 
Standard  deviation  (floating  pt) 

A  code  to  distinguish  sphere  and  cylinder  fits. 

The  number  of  points  used  in  the  fit. 

For  this  module  there  are  the  following  entry  points: 

FITINIT  :  This  entry  requires  no  parameters  and  initializes  the 
module  for  subsequent  calls  by  copying  initial  values 
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from  ROM  into  the  parameter  blocks  for  both  the  V12  and 
V34  sensor  pairs.  For  both  blocks,  it  NULLs  all  old 
AHI  and  ALO  values  so  that  the  SPIN  package  starts  off 
with  no  history  of  AHI  or  ALO  to  contend  with. 

FITSMP  :  The  sample  tells  the  package  of  a  particular  sun  angle 
at  which  the  module  may  decide  to  take  a  sample.  On 
entry,  [A]  is  the  8-bit  sun  angle.  This  function 
samples  and  stores  the  data  from  both  boom  systems  when 
the  angle  is  a  360/32  boundary. 

FITTELEM:  The  telemetry  call  requests  the  FIT  package  to  give 
some  of  its  formatted  data.  On  exit,  the  [A]  register 
contains  the  byte  of  data.  The  FIT  package  produces  an 
asynchronous  format  of  data  (zero  filled)  with  up  to  34 
bytes  of  non-fill  data  every  spin.  See  Figure  9. 

FITEXEC  :  Performs  the  spin  fits  if  ready  to  do  so.  Returns 
minus  if  its  not  ready.  This  entry  point  should  be 
called  from  the  foreground  since  it  may  take  up  to  1/2 
second  to  complete  the  pair  of  fits. 
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Theory  of  Operation 

BUFFERING.  At  each  selected  angle  which  is  a  multiple  of  360/32 
the  FIT  module  samples  the  V12  and  V34  measurements  (unless 
disabled  of  course).  These  data  are  stored  in  two  double 
buffers,  one  pair  for  each  type  of  data,  using  pointers  V12IN  and 
V34IN,  which  are  incremented  with  each  use. 

For  each  boom  system  there  is  an  angle  at  which  fit  sampling 
is  started  and  ended.  When  this  angle  is  met  for  a  given  boom 
pair,  the  buffer  pointer  is  checked  to  see  if  the  previous  buffer 
has  been  completed.  This  is  a  reasonable  question  since  changes 
in  the  spin  period  may  cause  short  cycling  of  the  sun  angle  phase 
locked  loop  (i.e.  skips  from  280  degrees  to  360  degrees  for 
example) .  If  the  buffer  has  been  filled  with  the  correct  number 
of  points,  a  variable  called  V120UT  (or  V340UT)  is  pointed  at  it. 

These  pointers  are  checked  by  the  foreground  process 
FITEXEC.  If  they  point  at  a  buffer,  then  the  SPIN  module  is 
called  with  the  appropriate  parameter  and  result  pointers.  When 
the  spin  fit  is  finished,  the  V120UT  or  V340UT  pointer  is  set  to 
a  "READY"  value  to  indicate  that  new  spin  fit  results  are  ready 
to  be  transmitted. 

TELEMETRY.  Sending  fit  results  into  the  telemetry  stream  is 
accomplished  by  the  FITTELEM  routine.  It  is  called  by  the  ELE 
module  each  time  the  SFR  TM  slot  comes  up  (every  other  minor 
frame)  .  The  FITTELEM  routine  hands  out  bytes  one  by  one  from 
memory  pointed  at  by  PTR,  using  a  count  contained  in  COUNT.  When 
COUNT  is  zero,  the  PTR  is  reloaded  with  any  results  marked 
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"READY"  by  their  output  pointer  (V120UT  or  V340UT) .  Once  the 
pointer  PTR  and  COUNT  are  loaded,  the  "OUT"  pointer  is  set  to 
"DONE",  so  that  the  results  will  be  transmitted  only  once. 

FIT  COMMAND.  Options  in  the  package  operations  are  selectable 
using  the  single  FITMODE  command  (see  the  general  description) . 
One  option  completely  disables  the  FIT  package  so  that  a  RAM 
loaded  procedure  can  be  substituted. 

A  second  control  bit  determines  whether  V12  fits  should  be 
performed.  This  is  used  by  the  EXEC  mode  switcher  when  going 
into  the  Langmuir  Probe  Mode  since  it  is  nonsense  to  spin  fit  V12 
at  that  time. 

A  third  option  is  a  diagnostic  dump  of  the  data  points  used 
in  the  spin  fit.  This  feature  uses  the  ELEXMIT  routine  to  form  a 
MAIN  transmission  of  the  32  samples.  Unfortunately,  there  is  no 
header  protocol  to  distinguish  it  from  bias  sweep  results  except 
for  the  lack  of  the  sweep  header. 

INITIAL  PARAMETERS.  The  parameter  block  for  each  boom  system  is 
copied  from  the  ROM  into  the  RAM  at  initialization  so  that 
adjustments  may  be  made  as  desired.  The  initial  values  for  both 
boom  systems  are  given  below: 

GAINFACTOR  1/50.9 

ALPHA  1.40 

BETA  0.40 
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2 . 8  Spin-Fitting  Computations 

The  SPIN. A  module  is  devoted  to  only  one  function,  namely 
producing  sine  wave  least  squares  fits  of  some  measured  data. 
This  function  is  by  far  the  most  complicated  of  those  in  the 
instrument  (although  bias  sweep  analysis  is  a  close  second) .  It 
is  called  solely  by  the  FIT. A  module  which  handles  the  sampling 
of  the  data  for  the  two  boom  systems.  All  CRRES  dependent  stuff 
(if  there  is  any)  is  contained  in  FIT. 

The  SPIN  module  takes  32  points  of  evenly  sampled  data  which 
represents  one  spin  period.  It  produces  the  sine,  cosine  and 
offset  parameters  which  approximate  the  waveform.  Also  produced 
is  the  standard  deviation  for  the  points. 

Assume  E(ti)  is  the  ti'th  measured  value  of  the  electric 
field  between  the  two  sensors  (either  V12  or  V34).  The 
approximating  waveform's  expression  in  general  would  be 

E(ti)  =  A  +  B*cos(wti)  +  C*sin(wti) 
where  w  is  2*pi*v  and  v  is  the  spacecraft  spin  frequency. 
However,  since  the  instrument  samples  data  in  two  gain  states, 
the  true  approximating  formulas  are 

E(ti)  =  Ahi  +  B*cos(wti)  +  C*sin(wti) 
for  high  gain  points  and 

E(ti)  =  Alo  +  B*cos(wti)  +  C*sin(wti) 
for  the  low  gain  points. 

What  we  want  to  do  is  form  a  difference  function  between  the 
approximate  expression  and  the  sampled  data.  The  best  fit  occurs 
when  we  minimize  this  function.  Figure  10a  thru  lOe  show  the 
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difference  function  and  its  associated  differentials.  Equations 
(b)  thru  (e)  give  four  equations  in  four  unknowns  which  can,  of 
course,  be  solved  by  standard  matrix  methods.  The  matrix 
elements  are  shown  in  Figures  11a  and  lib. 

The  procedure  of  SPIN  is  actually  more  complicated  than 
simply  solving  the  function  once.  Error  points  should  be  removed 
in  the  process  of  determining  the  best  fit  of  the  DC  field. 
These  "error"  points  are  real  data,  of  course,  but  reveal  AC 
activity  which  we  want  to  remove  from  a  DC  measurement.  The 
procedure  followed  by  the  SPIN  module  is  ar.  follows: 

1.  Least  squares  fit  the  input  data  to  find  Ahi,  Alo,  B,  C 
and  the  standard  deviation  Sigma. 

2.  Discard  all  points  more  than  Alpha*Sigma  from  the  least 
squares  curve,  where  Alpha  is  an  input  constant. 

3.  Repeat  the  least  squares  fit  using  the  remaining  points. 
For  the  jth  fit,  throw  away  points  more  than 
(Alpha+Beta)  *Sigma  from  the  curve.  (Beta  is  also  an  input 
constant. ) 

4 .  Stop  the  above  procedure  when  no  more  points  have  been 
removed . 

5.  Average  Ahi  with  the  previous  AVPTS  values  of  Ahi  to 
produce  Ahi'.  Do  the  same  for  Alo. 

6.  Use  Ahi'  and  Alo1  as  input  values  (not  to  be  determined 
by  the  fit) ,  remove  these  offsets  from  the  remaining  data 
points  and  perform  a  least  squares  fit  to  obtain  B  and  C 
only. 
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7.  Proceed  as  above  until  no  more  points  are  removed. 

8.  Transmit  Ahi',  Alo',  B,  C,  Sigma  and  N,  the  number  of 
points  remaining  in  the  fit. 

It  is  important  to  note: 

1.  The  algorithm  does  not  use  Ahi  or  Alo  when  fewer  than  3 
points  occur  in  that  gain.  To  do  so  would  cause  the  fit  to 
errantly  report  the  value  of  the  offset.  For  example,  if  1 
point  of  high  gain  were  in  the  buffer,  the  high  gain  offset 
(Ahi)  would  be  set  to  that  value.  This  is  wrong,  of  course, 
since  the  value  of  the  point  is  simply  a  small  electric 
field  value  at  the  sampled  time,  not  the  offset  of  the  high 
gain  amplifier. 

2.  When  rejecting  points  from  the  curve,  the  algorithm 
always  removes  their  effects  from  the  matrix  sums  by 
subtraction.  It  does  not  simply  recalculate  the  sums  for 
the  remaining  points.  While  being  a  simpler  procedure,  this 
would  take  at  least  fifteen  times  longer  to  perform. 

3.  Relatively  large  offset  values  (A.. I  and  ALO)  produce 
large  sigmas  and  poor  fits.  It  is  easy  to  see  why.  In  each 
summation  of  the  points,  ALO  will  be  summed  32  times  while 
each  point  only  once.  If  ALO  is  large  relative  to  the  sum 
of  the  points,  the  floating  point  value  will  more  or  less 
reflect  only  the  ALO  value  and  lose  track  of  the  point  sum. 

The  procedure  is  invoked  with  three  parameters.  On  entry,  [HL] 
address  the  sampled  data  block,  [DE]  points  to  the  input 
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parameter  block,  and  [BC]  point  to  where  SPIN  should  put  the 
results  (see  Figure  12)  .  The  SPIN  calculation  takes  500 
milliseconds  or  less  when  running  the  cpu  at  5  MHz  (crystal) . 
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Figure  10.  Spin  Fit  Difference  Function 
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Figure  12 ♦  Inout/Outout  Data  Blocks  for  Spin  Fitting 
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2 . 9  Sawtooth  Generator 


The  SAW  module  is  used  to  generate  sawtooth  waveforms  on  the 
sphere  bias  lines.  This  is  nominally  useful  in  the  Langmuir 
Probe  mode  but  for  test  purposes,  can  produce  diagnostic 
waveforms  on  the  bias  DACs  in  the  electric  field  mode  as  well. 
The  module  parameters  are  defined  to  generate  either  sawtooth 
waveforms  or  square  waves.  The  module  has  the  following  entry 
points: 

SAWINIT  :  The  initialization  entry  requires  no  parameters  and 
simply  copies  its  default  parameters  from  ROM  into  RAM 
where  the  user  commands  can  change  them.  Its  initial 
state  is  OFF  (no  waveform) . 

SAWSTEP  :  The  step  input  does  everything.  It  synchonizes  itself 
word  224  of  every  minor  frame  30.  It  does  the 
calculation  of  the  bias  value  and  the  setting  of  that 
value  on  both  boom  bias  circuits. 

SAWDSC  :  The  Digital  SubCom  function  returns  the  slow  status  of 
the  package  (what  has  been  commanded) .  On  entry,  the 
index  into  this  data  is  in  the  [A]  register.  On  exit, 
the  [A]  register  contains  one  byte  of  data. 
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Theory  of  Operation 


GENERATION.  The  Sawtooth  generation  is  a  simple  process 
complicated  by  the  many  things  going  on  in  the  rest  of  the 


system. 

The  process 

itself  involves  just  the  four  values: 

1. 

SAWOFF 

The  bias  offset  DAC  value 

2. 

SAWDEL 

The  size  of  each  change  to  the  bias 

3. 

SAWPER 

The  number  of  steps  up  and  down 

4. 

SAWDIV 

The  divider  of  the  input  frequency 

Each  of 

these  has  a 

temporary  value  as  follows: 

1. 

BIASREG 

The  present  bias  value 

2. 

DELREG 

The  delta  for  this  series 

3. 

PERCNT 

The  period  counter 

4. 

DIVCNT 

The  divider  counter 

The  basic  input  calls  to  SAWSTEP  are  divided  by  the  count  in 
SAWDIV  using  the  temporary  variable  DIVCNT.  Each  time  DIVCNT  is 
reloaded  from  the  commanded  value  in  SAWDIV,  the  present  bias 
value  is  put  on  the  DACs  and  a  new  step  of  the  bias  value  is 
made. 


Before  each  step  the  period  counter  is  first  decremented  and 
zero  checked.  If  zero,  the  DELREG  is  flipped  in  sign  to  make  the 
waveform  go  in  the  opposite  direction,  and  the  period  counter 
PERCNT  is  reloaded  from  SAWPER.  If  not  zero,  the  procedure  simply 
adds  the  DELREG  to  the  BIASREG.  When  flipping  directions,  the 
BIASREG  is  not  changed. 

This  causes  the  BIASREG  to  repeat  the  values  at  the  top  and 
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the  bottom  of  the  waveform.  This  is  a  nice  feature  since  the 
waveform  has  exactly  the  number  of  steps  asked  for  rather  than 
N+l  or  N-l,  etc.  If  you  ask  for  128  steps,  you  get  128  steps  up 
and  128  steps  down.  Simple. 

SYNCHRONIZATION.  A  very  important  part  of  the  package  is  its 
synchronization  code  since,  for  data  analysis  purposes,  one  must 
know  what  values  are  on  the  BIAS  DACs  at  all  times.  The 
synchronization  accomplishes  this  by  watching  the  internal  word 
and  frame  clocks  in  the  BKG  module  and  waiting  for  minor  frame  30 
and  word  224.  This  is  just  before  the  ELE  package  sampling 
begins  for  the  next  major  frame.  Thus,  data  within  major  frames 
always  reflect  multiples  of  the  sawtooth  starting  at  the 
beginning  of  the  waveform. 

The  synchronization  operation  is  performed  by  simply  copying 
the  four  commanded  values  SAWOFF  thru  SAWDIV  into  the  temporaries 
BIASREG  thru  DIVCNT.  Commands  changing  these  values  are  not 
guaranteed  of  affecting  the  waveform  until  the  first  sync  time 
(every  four  seconds) . 

COMMANDS.  The  commands  for  the  package  simply  set  one  of  the  six 
parameters  SAWOFF  thru  SAWDIV,  OPTION  and  SENSOR.  The  first  four 
of  these  have  already  been  described. 

"OPTION”  has  two  enable  bits,  one  for  stepping  and  the  other 
for  biasing.  This  flexibility  allows  the  package  to  run  the  bias 
stepping  algorithm  without  actually  setting  the  bias  DACs.  This 
is  required  for  the  2  seconds  when  the  bias  sweeps  occur.  We 
want  the  bias  sawtooth  to  maintain  its  place  in  the  waveform 
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regardless  of  the  fact  that  it  shouldn't  set  the  biases  for  a 
couple  of  seconds.  The  OPTION  parameter  is  used  internally  by 
the  EXEC  mode  switcher  and  by  the  SWP  module.  To  completely 
disarm  the  package,  one  must  set  the  SAWDEL  to  zero. 

"SENSOR"  simply  holds  the  bias  DAC  pair  to  set.  Of  course, 
since  only  the  spheres  have  a  current  mode,  this  value  is  set  to 
1.  Bias  DACs  1  and  2  get  the  sawtooth.  Just  for  fun  the  user 
can  set  this  value  to  3,  sending  the  sawtooth  out  to  the 
cylinders. 
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2 . 10  Eias  Sweeps 

The  SWP  module  manages  the  timing  and  analysis  of  Bias 
sweeps  on  the  spheres  and  cylinders.  Sweeps  are  used  to 
calculate  the  proper  sensor  biasing  while  in  the  electric  field 
mode  and  to  calculate  the  temperature  and  density  information  in 
both  E-field  and  Langmuir  modes. 

The  requirements  for  the  voltage  mode  sweeps  are 

1.  Perform  a  current  sweep  in  the  voltage  mode  at  a 
programmable  time  interval,  initially  120  seconds. 

2.  Sweep  both  sensors  (spheres  or  cylinders)  when  that  boom 
system  is  perpendicular  to  the  sun-spacecraft  line.  Do 
not  sweep  both  spheres  and  cylinders  at  the  same  time. 
See  Figure  13. 

3.  Sweep  from  -360  to  +360  nanoamperes  in  128  steps  that 
take  500  milliseconds.  At  each  step,  measure  and  store 
both  sensor  outputs  in  LOW  GAIN  (VI  and  V2  or  V3  and  V4) . 
Note  that  V2  must  be  inverted  to  be  consistent  with  the 
rest.  See  Figure  14 A. 

4.  Allow  maximum  settling  time  between  setting  the  current 
level  and  measuring  the  value. 

5.  Analyze  both  VIS  and  V2S  (or  V3S  and  V4S)  curves  as 
defined  below. 

6.  Average  the  BIAS  results  from  the  two  curves  and  set  both 
BIAS  DAC's  to  that  value. 

7.  Transmit  the  sweep  curves,  the  parameters  and  results  of 
the  analysis  if  enabled  for  playback. 
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Screening  out  noise  from  the  curves  is  required  and  specified  as 
follows: 

1 .  Do  not  analyse  regions  of  the  curve  where  the  measurement 
is  within  10  percent  of  full  scale,  positive  or  negative. 

2.  Let  V(i)  be  the  ith  measurement  on  a  scale  of  -2048  to 

+2047.  If  V(i+1)  -  V(i)  <  -N  then  if  V(i+2) -V(i+1)  > 

VI (i)-V(i-l) ,  replace  V(i+1)  by  (V(i)+V(i+2) )/2 . 
Otherwise,  replace  V(i)  by  (V(i+l)+V(i-l)/2.  See  Figure 
16. 


Analysis  of  the  curves  follows  the  noise  step: 

1.  Form  a  new  function  whose  ith  value  is  defined  as  shown 
in  Figure  16B.  Find  the  minimum  value  of  this  function, 
since  the  bias  changes  make  the  smallest  effects  on  the 
measured  field. 

2.  If  there  are  two  or  more  minima  with  the  same  delta-V, 
select  the  one  having  the  smallest  bias  value  (most 
negative  bias  current) . 

3.  If  the  algorithm  fails,  set  the  bias  current  to,  an 
alternate  value  (IBALT) .  This  can  only  occur  if  the 
signal  is  within  10  percent  of  full  scale  the  entire 
time. 

Requirements  for  the  current  mode  voltage  sweeps  are 

1.  Perform  current  mode  voltage  sweeps  at  programmable  time 
intervals,  initially  120  seconds. 

2.  Wait  until  the  sensors  are  perpendicular  to  the  sun- 
spacecraft  line. 
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3.  Sweep  both  sensors  (spheres  1  and  2  only)  through  128 
voltage  steps  from  -35  to  +35  volts.  Measure  RI1  and  RI2 
at  these  128  points  in  LOW  GAIN  only.  See  Figure  14B. 

4.  Transmit  the  curves. 

Note:  Analysis  of  the  voltage  sweeps  is  left  TBD  by  ground  loaded 
analysis  programs.  Though  the  initial  specifications  for  this 
analysis  was  finished  prior  to  instrument  completion,  there  was 
no  longer  enough  memory  available  in  the  ROM  to  do  the 
calculations  required. 

There  are  a  number  of  system  requirements  placed  on  the  operation 
of  this  module.  Amoung  them  are: 

1.  Sweeps  must  inform  the  Fast  Digital  Monitor  bit  when  they 
begin.  As  illustrated  by  Figure  14,  the  software  finds  the 
correct  sun  angle,  and  then  waits  until  the  Fast  Digital 
Monitor  is  calculated.  This  keeps  the  sweep  action 
synchronous  with  the  telemetry  while  not  causing  too  much 
error  in  sun  angle. 

2.  The  SWP  module  must  coordinate  with  the  sawtooth 
generator  so  that  the  SAW  module  doesn't  continue  to  set  the 
BIAS  DAC's  while  the  sweep  is  occurring. 

3.  The  SWP  module  must  not  place  BIAS  results  on  the  sensors 
until  the  beginning/ending  of  that  sensor  pair's  spin  fit. 
Otherwise,  part  of  the  first  fit  will  be  done  at  one  bias 
value  while  part  of  the  second  will  be  done  at  the  new  bias 


value. 


The  SWP 
SWPINIT 

SWPANG 


SWPSTAT 


SWPEXEC 


SWPDSC 


module  has  the  following  entry  points 

This  entry  has  no  parameters  and  simply  sets  the 
initial  values  for  the  module. 

This  entry  is  called  to  report  a  new  sun  angle.  On 
entry:  [A]  is  the  new  sun  angle.  This  routine  checks 
for  sun  angle  related  events  such  as  the  start  of  a 
sweep  or  the  setting  of  the  bias  result. 

This  entry  is  used  in  the  Fast  Digital  Monitor 
calculation  since  the  SWP  module  provides  one  bit  of 
the  FDM  word.  On  exit:  [A]  =  1  for  SWEEP-IN-PROGx^SS . 

This  is  a  foreground  entry  point  for  performing  sweeps. 
If  it  is  the  proper  time,  a  sweep  will  be  performed. 
If  not,  the  code  will  simply  return. 

This  routine  returns  the  status  of  the  module  to  the 
Digital  SubCom  processor.  On  entry:  [A]  is  the  index 
into  the  status  block.  On  exit  :  [A]  holds  the  status 
byte. 
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Fig  A.  U12  I  and  V  Bias  Sweeps  are  taken 
alien  the  spheres  are  perpendicular 
to  the  sun.  Since  they  take  1-2  seconds 
to  complete,  the  begin  11.28  degrees 
prior  to  perpendicular. 
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Fig  C.  Cglinder  Bias  Sweeps  are  taken 
when  they  are  perpendicular  to  the  sun. 
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their  first  data  point  at  225  degrees. 
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Fig  D.  Cylinder  Bias  results  are  output 
1.41  degrees  prior  to  the  start  of 
cylinder  spin  fits. 


Figure  13.  Orientation  of  Booms  During  Sweeps 
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Figure  14.  Bias  Output  Timing  for  Spheres 
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Fig  A.  Voltage  Mode  Lias  output  on  the  spheres  and  cylinders  in  a  cylinder  sweep. 


Figure  15.  Bias  Output  Timing  for  Cylinders 
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Fig  A.  Sweep  differential  function  with  M  point  averaging. 

For  sensors  V2S,  V3S  and  V4S,  substitute  for  VlS  above. 


Fig  B.  Noise  points  on  a  bias  sweep  curve.  Circles  show  replacenent  point. 
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Theory  of  Operation 


GENERAL.  The  SWP  module  is  a  complicated  module  controlling  two 
boom  systems  in  two  modes,  while  conforming  to  a  number  of  system 
timing  constraints,  etc.  A  large  number  of  options  are  provided 
for  the  sake  of  flexibility  that  probably  won't  be  used.  If 
things  happen  the  way  they  did  in  the  ISEE  instrument,  the 
algorithm  will  be  eventually  replaced  by  a  commanded  program,  and 
that  will  be  that.  Nevertheless,  the  RAM  loaded  programs  may 
find  parts  of  this  code  useful  and  thus  these  should  be 
described. 

COMMANDS.  Commands  are  vectored  to  the  module  through  the  CMDTAB 
vector  table  as  are  all  other  instrument  commands  (see  BKG) .  To 
handle  the  large  number  of  options  and  values  for  the  two  boom 
systems'  bias  sweeps,  the  SWP  module  used  a  simple  "index  and 
value"  commanding  format  like  the  ELE  INDEX  and  QTY  commands. 
One  command  sets  the  INDEX  variable  to  point  to  one  of  the  32  RAM 
variables  which  can  be  changed.  The  second  command  sets  the 
value  of  the  variable  and  then  increments  the  INDEX. 

BOOM  SWITCHING.  The  module  works  on  one  boom  system  at  a  time. 
The  variable  BOOM  is  either  1  or  3  to  indicate  spheres  and 
cylinders,  respectively.  At  the  end  of  a  sweep  cycle,  the  boom 
system  is  switched  by  the  routine  SWITCH. 

SWEEP  TIMING.  Sweeps  are  performed  at  multiples  of  the 
spacecraft  spin  period.  The  commanded  variable  SPINMAX  holds  the 
number  of  spins  to  wait  between  sweeps.  SPINCNT  is  loaded  from 
SPINMAX  when  BOOM  is  set  and  is  decremented  each  time  the  SUN 
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ANGLE  is  0. 


ONE  SWEEP  CYCLE.  When  SPINCNT  is  zero  (  the  last  spin)  and  the 
SUN  ANGLE  matches  the  SWPANG  value  for  that  boom  system,  the 
STATE  is  set  to  1.  This  indicates  to  the  foreground  routine 
SWPEXEC  that  a  sweep  is  ready  to  be  done,  and  this  will  occur  as 
soon  as  SWPEXEC  is  called. 

SWPEXEC  performs  the  sweep  management  which  is  pretty  well 
described  in  the  software  listing.  It  is  worth  noting  : 

1.  The  SAW  module  status  is  saved  by  SWPEXEC  before  doing 
the  sweeps,  and  later  re-commanded  after  the  sweeps. 

2 .  The  SWPPTR  variable  is  set  at  the  beginning  of  the  sweeps 

and  is  incremented  by  the  action  of  the  SAMSTO  routine. 
Since  sweeps  can  be  disabled,  the  number  of  data  points 

is  variable.  Hence,  the  TRANSMIT  routine  is  smart  enough 

to  telemeter  from  the  start  of  the  buffer  to  wherever 
SWPPTR  ends  up. 

3.  When  the  sweep  analysis  is  done,  STATE  is  set  to  2.  This 
allows  the  BIAS  setting  to  occur. 

BIAS  SETTING.  If  the  STATE  is  2  (analysis  done) ,  the  SWPANG  code 
waits  for  the  sun  angle  to  match  the  spin  fit  angle  for  that  boom 
system.  When  these  are  equal,  either  the  RESULT  or  the  ALTERNATE 
values  are  sent  to  the  boom  system  DAC’s,  depending  upon  one  of 

the  option  bits.  Note  that  the  code  also  checks  if  the  mode  is 

correct  for  setting  bias  DAC's.  It  will  not  set  the  sphere  DAC's 
in  the  Langmuir  (current)  mode. 
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SWEEP  DETAILS.  Here  are  some  notes  the  sweeps: 

1.  Sweeps  are  synch'd  with  the  telemetry  system  by  SWPREQ 
and  SWPOK  variables.  The  FDM  routine  copies  REQuest  into 
the  OK  variable,  so  to  start  a  sweep  the  code  sets  REQ=1 
and  waits  for  0K=1. 

2.  Relays  are  flipped  only  if  necessary.  For  example,  if 
performing  a  voltage  sweep  and  the  instrument  were 
already  in  the  voltage  mode,  the  code  will  switch  to  the 
current  mode.  It  is  smart  enough  (because  of  table 
lookup)  to  know  that  a  current  sweep  on  the  cylinders  can 
be  performed  while  the  spheres  are  in  the  current  mode. 

3.  The  first  BIAS  step  is  output  4*4  or  16  milliseconds 
before  the  first  measurement  is  taken.  Thereafter,  all 
measurements  are  taken  at  4.00  millisecond  intervals  (at 
words  2,  10,  18  etc). 

4.  Buffered  data  is  sign  extended  from  12  to  16  bits.  This 
is  needed  to  simplify  the  analysis  phase  and  doesn't 
effect  the  transmit  phase  except  negative  values  show 
high  gain. 

SWEEP  ANALYSIS.  The  sweep  analysis  routine  (for  the  voltage  mode 
current  sweeps)  is  contained  in  the  SWP  module.  Users  may 
override  this  function  by  using  the  ANAVECT  vector.  When  ANAVECT 
is  armed  (=0AAH) ,  then  the  ANA  routine  used  is  the  one  pointed  to 
by  ANAVECT+1. 
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Note  that  there  are  4  undefined  variables  which  are 
available  in  each  of  the  two  sweep  parameter  blocks.  These  are 
zeroed  at  SWPINIT  and  are  transmitted  as  spares  in  the  sweep 
transmissions.  If  the  user  reprograms  the  bias  sweep,  these 
variables  should  be  utilized  to  indicate  that  this  has  been  done, 
as  well  as  possibly  to  show  the  parameters  of  the  new  function. 

MODE  BITS.  The  large  number  of  option  bits  are  handled  by  two 
routines  CHKENA  and  CHKWTD  ("check  enable"  and  "check-what-to- 
do")  ,  the  two  distinguished  by  the  first  referencing  RAM  options 
and  the  second  ROM  options.  There  is  one  byte  of  RAM  and  one 
byte  of  ROM  enable/disable  bits  per  boom  system.  These  routines 
form  a  one  bit  mask  depending  upon  the  instrument  mode  and  the 
value  of  [C] .  This  mask  is  ANDed  with  the  option  bits  and  NZ  if 
indicated  if  a  1  is  found. 

For  example,  to  determine  if  transmissions  of  VI, 2  sweeps 
are  enabled,  a  call  is  made  to  CHKENA  with  [C]=40H.  In  the 
voltage  mode,  the  mask  will  be  4 OH  while  in  the  current  mode  the 
mask  will  be  shifted  to  80H.  These  are  the  bit  positions  for 
transmission  enables  in  those  modes. 
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2  t.ll  MAIN  Program  Loader 

One  of  the  most  important,  yet  simplest,  pieces  of  the 
flight  code  is  its  program  loader  in  the  LD.A  module.  Together 
with  various  vectors  tucked  away  in  critical  places,  much  of  the 
MAIN  CPU  operations  can  be  changed  or  increased,  and  any  location 
in  the  MAIN  memory  can  be  modified.  (To  load  bytes  into  the  Burst 
computer,  one  invokes  the  Burst  Program  Loader  BLD.) 

i 

For  this  module  there  is  only  one  entry  point: 

LDINIT  :  This  entry  initializes  by  setting  the  load  address  to  » 

the  beginning  of  the  user  area  defined  for  programs. 

The  available  commands,  as  described  in  the  general  description, 
are 


ADRL  Set  Low  byte  of  memory  address 

ADRH  Set  High  byte  of  memory  address 

IX)AD  Load  byte  into  memory 

EXEC  Execute  program 

It  is  important  to  note  that  programs  must  begin  with  a  code  "AA" 
in  hexadecimal.  This  is  to  prevent  an  errant  command  from 
crashing  the  system  by  executing  a  program  not  ready  to  be  run. 
(Had  the  command  count  error  bit  been  invented  prior  to  this 
module,  it  would  have  been  a  better  check  of  correct  program 
loading.)  This  byte  is  zeroed  before  the  program  is  executed,  so 
one  cannot  re-execute  a  program  by  sending  a  second  EXEC  command. 

MAIN  CPU  programs  must  always  begin  at  "USER"  (address  2930H) . 
If  you  want  to  run  something  elsewhere,  you  must  load  a  jump  at 
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USER. 


MAIN  programs  are  executed  as  part  of  the  command  execution. 
They  are  therefore  part  of  the  background  and  have  suspended  the 
foreground  until  they  execute  a  RET  instruction.  To  get  to  the 
foreground,  one  can  change  the  foreground  vector  in  the  EXEC 
module  and  then  RET. 

Without  using  any  leftover  data  areas  in  the  other  modules, 
programs  of  about  1.6  to  1.7  KBytes  can  be  loaded.  The  stack  is 
going  to  operate  in  the  first  30  to  50  bytes  from  2FFFH,  but  one 
should  never  get  too  close  if  one  can  help  it. 
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2.12  Boom  Deployment 

The  deployment  of  spherical  booms  is  performed  by  the 
Deployment  module.  This  software  is  intented  to  monitor  the 
lengths  of  the  boom  systems  as  measured  by  their  "turns  counter" 
microswitches  and  to  deploy  the  boom  systems  as  commanded. 

Requirements  for  this  module  are  outlined  as  follows: 

1)  Never  start  a  boom  motor  if  its  cover  is  on. 

2)  Turn  off  a  boom  unit  immediately  if  any  end-of-wire 
indicator  is  tripped  (not  just  it's  end-of-wire). 

3)  When  deploying  both  booms  at  the  same  time,  if  one  boom 
gets  too  far  ahead  of  the  other,  turn  it  off  until  they 
are  the  same  length  again. 

4)  An  override  command  can  disable  points  1  and  2. 

For  this  module  there  are  the  following  entry  points: 

DEPINIT  :  This  entry  initializes  the  boom  deployment  relays  and 
the  module  by  executing  a  deploy  stop  command. 

DEPSAMP  :  This  entry  is  used  for  monitoring  the  boom  status 
information  and  making  decisions  to  turn  on  or  off  the 
boom  unit  motors. 

DEPDSC  :  The  DSC  entry  returns  the  status  of  the  boom  deployment 
module.  On  entry:  A  is  an  index  into  the  variables  used 
by  the  deploy  module.  On  return:  A  contains  the  value 
at  that  location. 

Theory  of  Operation 

DEPLOY  STATE.  The  deploy  module  handles  the  two  booms  as 
separate  devices  using  two  nibbles  of  a  state  variable  DEPSTAT. 
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Each  nibble  has  four  possible  states: 

OFF  The  motor  has  been  commanded  OFF  and  is  OFF. 

PAUSED  The  motor  is  currently  OFF,  but  is  commanded  ON. 
STOPPING  The  motor  is  currently  ON,  but  is  commanded  OFF. 

RUNNING  The  motor  is  currently  ON  and  commanded  ON. 

SWITCHING.  On  each  call  to  DEPSAMP,  only  one  boom  system  is 
checked  for  what  to  do.  This  is  controlled  by  the  LSB  in  DEPCNT 
which  is  incremented  on  each  call.  DEPSAMP  first  samples  the 
microswitches  in  order  to  determine  the  boom  lengths.  It  then 
looks  at  the  state  of  the  one  boom  system.  If  OFF,  it  does 

nothing.  If  STOP,  it  calls  the  10  system  to  turn  OFF  that  boom 

motor  relay.  If  PAUSED,  it  compares  the  boom  lengths  and 
restarts  the  current  boom  when  the  other  boom  is  longer.  And  if 
already  RUNNING,  it  checks  both  the  microswitches  as  well  as 
compares  the  length  of  this  boom  versus  the  other. 

LIMIT  CHECKING.  The  microswitch  limits  which  show  the  covers  ON 
or  the  End-of-Wire  status  is  done  by  the  routine  LIMCHK .  This 
code  returns  no-carry  is  there  is  a  problem,  such  as  a  cover 

which  is  ON.  Limit  checking  can  be  disabled  if  there  is  a  sticky 

switch  by  a  command  which  sets  the  OVERRIDE  bits.  These  are  OR'd 
into  the  boom  status  bits  in  the  limit  checking  process  and 
prevent  a  zero  condition  (error)  in  any  of  these  bits. 

COMMANDS.  The  deploy  command  simply  sets  the  value  of  the  deloy 
limit  and  then  uses  the  two  bits  from  the  deploy  command  (0,  1  , 
2  or  3)  to  set  the  DEPSTAT  variable  with  the  appropriate  states 
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of  each  boom.  To  turn  ON  a  boom  system,  one  sets  the  boom  in  the 
PAUSED  state  from  which  it  will  try  to  turn  ON.  To  turn  OFF  a 
boom,  one  sets  its  state  to  STOPPING  from  which  it  will  turn  OFF 
its  motor  and  enter  the  OFF  state. 
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2 . 13  General  Utilities 

The  smallest  of  the  modules  has  to  be  the  UTIL. A  module. 
Many  of  the  modules  in  the  MAIN  computer  needed  the  same  very  low 
level  functions  to  be  performed.  These  were  grouped  into  this 
file  since  it  made  no  sense  to  put  them  elsewhere. 

The  functions  are  as  follows: 

ZERO  Zeroes  C  bytes  of  memory  from  [HL]  on. 

COPY  Copies  C  bytes  of  memory  from  [DE]  to  [HL] . 

REF  Adds  [A]  to  [HL]  in  sixteen  bit  fashion.  This  is 

useful  for  array  referencing. 

UNARY  Calculates  2** [A]  and  returns  the  value  in  [HL] 

NEG16  Negates  [HL]  in  2's  complement  form. 

MARK  This  routine  outputs  [HL]  to  the  diagnostic  LEDS  of  the 

development  system 

ZERO,  COPY  and  REF  have  been  assigned  software  restarts  1,  2  and 
3  respectively.  This  conserves  on  memory  since  the  restart 
instrument  is  one  byte  whereas  subroutine  calls  are  three. 
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2.14  Main 
The 

contained 

described 

IOINIT 

GETMASK 

SETMASK 

CMDIN 

TMOUT 

SUNSTAT 

BOOMSTAT 

SAMPLE 


Input/Output  Utilities 

Input/Output  module  for  the  Main  computer  system  is 
in  a  file  called  "10. A”.  The  entry  points  for  it  are 
below: 

Initializes  the  input/output  variables  so  that  the 
module  functions  correctly. 

Reads  the  interrupt  mask  of  the  processor. 

On  exit:  A  is  the  interrupt  mask. 

Sets  the  interrupt  mask  of  the  processor. 

On  entry:  A  is  the  interrupt  mask  to  set. 

Reads  the  command  input  shift  register. 

On  exit:  [HL]  is  the  current  shifted  value. 

Sets  the  telemetry  shift  register. 

On  entry:  [HL]  is  the  value  to  send  to  the  telemetry 
shift  register. 

Returns  the  status  of  the  sun  pulses. 

On  exit:  Status  is  non  zero  if  a  sun  pulse  has 

occurred  since  the  last  call. 

Reads  the  microswitches  in  the  boom  deployment  units. 

On  exit:  A  is  E2  ,R2  .T2  .  L2  .  El  .R1  .Tl.  LI  where  E  is  the 
Endwire  indicator,  R  is  the  right  cover,  L  is  the  left 
cover  and  T  is  the  turns  counter.  The  endwire  and 
covers  are  active  low. 

Sample  an  analog  quantity  on  the  MAIN  multiplexor. 

On  entry:  A  is  the  multiplexor  address 
On  exit:  [HL]  contains  the  12-bit  value  (OXXX) . 

If  Kelley  qty,  [HL]  =  OXXG,  where  G  is  the  gain. 
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AGO 


SETBIAS 


SETGUARDS 


SETSTUBS 


SETVTRIM 


SETRELAY 


SETFILTER 


Sample  an  analog  quantity  after  selecting  its  gain. 
On  entry:  A  is  a  multiplexor  address. 

On  exit  :  D  is  the  proper  address  to  digitize. 

Sets  a  bias  D/A  converter. 

On  entry:  H  is  the  boom  number  (0  thru  3) . 

L  is  the  8-bit  dac  value  (-128  to  127) . 
Sets  a  guard  D/A  converter. 

On  entry:  H  is  the  boom  number  (0  thru  3) . 

L  is  the  8-bit  dac  value  (-128  to  127). 
Sets  a  stub  D/A  converter. 

On  entry:  H  is  the  boom  number  (0  thru  3) . 

L  is  the  8-bit  dac  value  (-128  to  127) . 
Sets  a  Vtrim  D/A  converter. 

On  entry:  H  is  the  boom  pair  (0  or  1)  . 

L  is  the  8-bit  dac  value  (-128  to  127) . 
Sets  or  resets  a  relay  in  the  analog/filtering. 

On  entry:  A  is  the  relay  number  (0  thru  17) . 

Carry  is  1  to  set,  0  to  reset. 

Sets  a  Filter  register. 

On  entry:  H  is  the  filter  number  (0  thru  6) . 

L  is  the  filter  value  (0  to  255) . 
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SETMUX 


TSTMUX 


SETMOTOR 


SETKLY 


SETPLA 


SEND 


Sets  the  multiplexor  bits  which  steer  the  filtering. 
On  entry:  H  holds  a  3 -bit  code  for  which  mux  to  set. 


L  holds  the  value  (1  to  5  bits) 
Code  Mux  effected 


000 

V12/RI1 

001 

V2/RI2 

010 

6 -POLE  SELECT  (2 

BITS) 

00  : 

V2/RI2 

01  : 

V12/RI1 

RAW 

10  : 

SC 

11  : 

V34  RAW 

Oil 

Vl/SC 

100 

COMBINES 

CODES  0 

AND  1  (L  : 

IS  2 

BIT) 

101 

COMBINES 

CODES  0 

THRU  2  (L 

IS 

4  BIT) 

110 

COMBINES 

CODES  0 

THRU  3  (L 

IS 

5  BIT) 

Requests  a  copy  of  the  multiplexor  bits  which  steer  the 
filtering.  On  entry:  a  holds  a  3-bit  code  for  which 
mux  to  request.  On  exit:  a  =  the  bits  not  right 
justified,  condition  code  set. 

Turns  on/off  the  boom  motors. 

On  entry:  A  is  the  motor  number  (0  or  1) . 

Carry  is  1  for  on,  0  for  off. 

Cycle  the  Kelley  AutoGain  Circuit. 

On  entry:  no  parameters. 

Load  the  LEPA  shift  register. 

On  entry:  [HL]  is  the  value  to  send. 

Send  data  to  the  Burst  computer  system. 

On  entry:  [HL]  is  the  value  to  send. 

Note:  if  the  burst  is  already  trying  to  send  to  the 
main  system,  this  information  will  be  lost.  See  the 
LPHW.DOC  for  timing  information  on  SEND  and  RECEIVE. 
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RECEIVE  Receive  data  from  the  Burst  computer  system. 


On  exit:  If  zero  returned,  the  Burst  is  not  ready. 
If  non-zero,  [HL]  contain  the  data. 

RWATCH  Resets  the  watchdog  timer. 

On  entry  :  no  parameters. 

IODSC  Requests  the  digital  status  of  relays,  and  dacs. 
On  entry:  [A]  is  the  index 
On  exit: 

A  =  0-1  :  VTRIM1-VTRIM2 

2-5  :  BIAS1-BIAS4 

6-7  :  STUB1-STUB2 

8-9  :  GUARDI -GUARD2 

10-16:  FILTER1-FILTER7 

17  :  FILTER  MULTIPLEXOR  (SEE  LPHW.DOC) 

18-20:  RELAYS  (K0  IS  LSB  OF  1ST  BYTE) 
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2 ♦ 15  Fast  Floating  Point  Utilities 

The  FFP.A  module  fulfills  the  needs  of  the  instrument  in 
performing  on-orbit  data  analysis  of  the  DC  electric  field. 
Specifically,  the  Sine  Wave  least  squares  fit  subroutine  requires 
the  range  and  precision  of  floating  point.  Originally  designed  to 
produce  least  squares  fits  in  500  milliseconds  on  an  8085  running 
at  2.5  MHz,  this  package  is  roughly  30  times  as  fast  as  it  needs 
to  be  for  CRRES .  The  one  drawback  to  the  package  is  the  fact 
that  it  uses  only  a  two  byte  mantissa  (instead  of  three)  and 
therefore  has  less  precision  than  full  implementations. 
Nevertheless,  the  package  is  ideal  for  scientific  applications  of 
this  sort. 

The  format  of  the  data  is  SIGN  (S)  ,  7-bit  EXPONENT  (E)  ,  and  16 
bits  of  MANTISSA  (HL)  as  follows: 


•  •  •  • 

! SEEEEEEE ! HHHHHHHH ! LLLLLLLL! 

i _ i _ i _ i 

MSB  LSB 

The  registers  are  organized  with  the  current  value  held  in  [CDE] 
and  the  second  parameter  pointed  at  by  [HL] .  When  floating 
values  are  stored  in  memory,  they  are  stored  with  the  exponent 
byte  first  and  low  mantissa  last. 

The  functions  available  in  the  package  are  as  follows: 


LODFP 

Loads  [CDE] 

from 

memory  at 

[HL] 

STOFP 

Stores  the 

result 

in 

[CDE] 

in  memory 

at  [HL] 

FMUL 

Multiplies 

[CDE] 

by 

value 

at  [HL], 

leaving 

in  [CDE]. 
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FDIV 


Divides  [CDE]  by  value  at  [HL] ;  leaves  result  in  [CDE] . 
FADD  Adds  value  at  [HL]  to  [CDE]. 

FSUB  Subtracts  value  at  [HL]  from  value  in  [CDE]. 

FCMP  Compares  values  in  [HL]  and  [CDE]  using  subtraction. 

Returns  carry  and  zero  flags  as  appropriate. 

FNEG  Negates  the  value  in  [CDE]. 

FLT32  Floats  a  signed  32-bit  value  in  [DEHL]  leaving  the 

result  in  [CDE] . 

FIX32  Fixes  a  floating  value  in  [CDE]  leaving  the  signed 

result  in  [DEHL] . 

FSQUA  Squares  the  value  in  [CDE]. 

FSQRT  Takes  the  square  root  of  [CDE] . 

MU21  Fast  fixed  point  8  bit  by  16  bit  unsigned  multiply.  On 

entry:  [A]  is  the  8  bit  value  and  [DE]  hold  the  16  bit 
value.  On  exit:  [ AHL]  hold  the  24  bit  result.  This  is 
a  useful  utility  though  it  isn't  a  floating  point  call. 

Underflow  and  overflow  conditions  are  treated  by  returning  zero 
and  maximum  values  respectively. 

Useful  timing  information  has  been  collected  under  8085 
simulations  of  the  package.  These  are  listed  below  with  respect 
to  their  minimum,  average  and  worst  cases.  (Multiplying  by  zero 
would  be  a  minimum  case  for  example) . 
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FUNCTION  MINIMUM  AVERAGE 

(cycles)  (cycles) 


WORST 

(cycles) 


FADD 

76  eye 

300 

465 

FSUB 

97 

400 

716 

FMUL 

48 

600 

1003 

FDIV 

48 

1600 

2030 

MU21 

197 

250 

298 

Table  9 .  Fast  Floating  Point  Execution  Times 

These  data  are  useful  for  estimating  the  amount  of  time  it  will 
take  for  the  CPU  to  calculate  the  floating  point  result.  To 
convert  these  cycle  times  into  microseconds,  multiply  by  0.4. 
For  example,  a  worst  case  FMUL  will  take  1003  X  .4  or  400 
microseconds . 
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2 ♦ 16  Matrix  Utilities 

The  MATRIX. A  package  is  really  just  one  routine  which  solves 
up  to  4  X  5  matrices  in  floating  point.  It  has  two  entry  points, 
IMATX,  for  defining  where  the  matrix  is,  its  size,  and  where  the 
solution  should  go.  The  second  entry  point,  SOLVE,  calculates 
the  solution  to  the  matrix  defined  earlier  and  stores  it  where  it 
was  told. 

The  procedure  the  standard  one  which  first  diagnalizes  the 
matrix  to  produce  the  result  for  one  unknown.  That  value  is  then 
substituted  back  into  the  equations  to  remove  the  unknown  value. 
This  gives  the  result  for  the  second  unknown  and  so  forth. 

The  matrix  solver  operates  on  either  4X5,  3X4  or  2X3 
matrices.  To  save  time  in  the  spin-fitting  solver  and  to  keep 
the  indexing  in  this  module  simple,  matrices  smaller  than  4X5  are 
still  stored  in  the  same  amount  of  space  as  a  4X5  matrix  would 
take.  In  other  words,  the  1st  element  of  the  2nd  row  is  always 
stored  in  the  6th  memory  position  as  if  5  elements  were  in  the 
top  row. 

Finally,  one  other  note  about  the  module  is  its  definition 
of  ”0.0”  when  trying  to  find  non-zero  elements  in  the 
diagnalization  process.  A  common  problem  with  floating  point  is 
that  small  errors  get  significant  when  large  multipliers  are 
used.  (The  same  problem  exists  in  a  smaller  way  with  integers, 
but  that's  another  story.)  As  a  result,  the  diagnalization 
process  must  stay  away  from  choosing  very  small  non-zero  numbers 
as  the  radix.  This  package  uses  1/2**10  as  the  limit  defining  a 
practical  zero. 
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2 . 17  Trigonometric  Functions 

The  TRIG. A  package  provides  floating  point  subroutines  for 
the  common  trigonometric  functions.  These  are  used  by  the  spin¬ 
fitting  subroutine  to  calculate  sin  and  cosine  terms  in  the 
matrices.  Since  data  is  sampled  at  fixed  intervals  in  the  spin 
package,  the  trigonometric  functions  did  not  need  to  be  complete 
and,  in  fact,  only  work  for  32  discrete  angles.  Their  only  real 
requirement  is  to  be  very  fast.  Hence,  the  trig  functions  merely 
play  small  games  with  the  angle  parameter  and  then  reference  a 
floating  point  table.  Note:  the  angle  ranges  between  0  and  31*3, 
in  steps  of  3 . 

The  functions  available  are: 


SIN 

Returns 

[HL]  -> 

Sin (A) 

COS 

Returns 

[HL]  -> 

Cosine (A) 

SINSQ 

Returns 

[HL]  -> 

Sin (A) **2 

COSSQ 

Returns 

[HL]  -> 

Cosine (A) **2 

SNCS 

Returns 

[HL]  -> 

Sin(A)  *  Cosine(A) 
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2 . 18  Burst  Executive  Module 

The  BEXEC.A  module  contains  the  Burst  computer  executive 
logic.  This  software  is  responsible  for  initializing  all  the 
modules  and  then  distributing  any  commands  which  come  into  the 
system.  Except  for  some  interrupt-timed  sampling  modes,  the 
Burst  computer  operates  almost  completely  in  the  foreground. 

The  executive  has  only  1  entry  point,  namely  the  cpu  reset. 
All  other  modules  are  called  by  BEXEC.  None  call  it. 

Commands  from  the  MAIN  cpu  enter  the  system  by  an  interrupt 
which  causes  the  transfer  of  data  from  the  MAIN  to  the  BURST  10 
system.  The  executive  polls  the  10  system  to  see  if  there  is  a 
command  using  the  RECEIVE  function.  When  this  returns  the  NZ 
flag,  [HL]  contain  the  command  bits. 

With  a  valid  command  in  hand,  the  executive  calls  the  other 
Burst  modules  to  see  whose  command  it  is.  Each  module  returns  a 
carry  when  the  command  is  not  theirs.  If  it  is  theirs,  they 
execute  it,  of  course.  Command  errors  are  recorded  in  the  BEXEC 
RAM  area  but  NO  status  is  reported  to  the  MAIN  computer.  This 
could  be  a  place  for  future  improvement. 

In  order  to  cut  down  the  power  of  the  Burst  system,  the 
executive  uses  the  same  trick  as  the  MAIN  executive  when  it  has 
nothing  to  do.  If  no  command  is  ready,  the  BEXEC  module  puts  a 
HLT  (halt)  instruction  followed  by  a  RET  (return)  in  RAM  memory, 
and  then  executes  it.  This  causes  the  CPU  to  shut  down,  until 
the  command  interrupt  from  the  MAIN  system,  at  which  time  the 
Return  instruction  is  executed.  The  Burst  then  recogizes  the 
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command-ready  and  executes  it. 

Two  vestigial  diagnostic  routines  remain  in  the  Burst 
executive  module.  Since  the  Burst  memory  was  no  cramped,  these 
were  left  in  for  the  sake  of  future  problem  solving.  One  is  a 
memory  test  program  which  tests  the  buss  memories,  not  the  Burst 
Memory  bank.  The  other  is  a  diagnostic  output  routine  which 
displays  [HL]  to  the  diagnostic  LEDS  of  the  development  system. 
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2 . 19  Burst  Input/Output  Module 


The  Input/Output  routines  for  the  Burst  computer  system  are 
contained  in  file  "BIO. A.”  The  entry  points  for  it  are  described 
below: 


BIOINIT  :  Initializes  the  input/output  variables  so  that  the 
module  functions  correctly. 

GETMASK  :  Reads  the  interrupt  mask  of  the  processor. 

On  exit:  A  is  the  interrupt  mask. 

SETMASK  :  Sets  the  interrupt  mask  of  the  processor. 

On  entry:  A  is  the  interrupt  mask  to  set. 

SETVECT  :  Sets/Resets  the  2KHz  interrupt  vector. 

On  entry:  If  [HL]  is  zero,  the  2KHz  int  is  disabled. 

Else  the  vector  is  set  to  [HL]  and  the  int  is 
enabled. 


RECSTAT  :  Returns  not  zero  if  RECEIVE  data  is  ready. 

RECEIVE  :  Receives  data  from  the  MAIN  processor  over  the 
interprocessor  communication  lines.  If  no  data  is 
ready,  the  zero  flag  is  set  on  return. 

On  exit  :  If  zero,  no  data  ready. 

If  not  zero,  [HL]  =  16-bit  data. 

SEND  :  Sends  data  to  the  MAIN  processor. 

On  entry:  [HL]  contain  the  data  to  be  sent. 

ADPWR  :  Controls  power  to  the  A/D  converter  circuitry. 

On  entry:  Carry  =  1  to  turn  ON  the  A/D. 

Carry  =  0  to  turn  it  OFF. 
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SAMPLE 

MEMPWR 

MARSET 

BANKSET 

MODESET 

SECOND 

D5MS 

READ 

WRITE 

REWIND 

MARGET 

SETIO 


Sample  an  analog  quantity  on  the  BURST  multiplexor. 

On  entry:  [A]  is  the  multiplexor  address. 

On  exit  :  [HL]  contains  the  13-bit  value  in  the  format 
(...G  xxxx  xxxx  xxxx) 

Controls  power  to  the  memory  banks. 

On  entry:  [A]  =  the  bank  number  to  turn  ON  or  OFF. 

carry  =  1  for  ON,  0  for  OFF. 

Sets  the  Memory  Address  Register. 

On  entry:  [BHL]  =  18-bit  address  to  set 
Sets  the  start  and  end  banks  to  use. 

On  entry:  [B]  =  the  start  bank  to  use  (0..5) 

[C]  =  the  end  bank  to  use  (0..5) 

Turns  on/off  the  memory  autowrite  mode. 

On  entry:  [A]  =  1  for  autowrite,  0  for  normal  memory. 
Delays  1  second. 

Delays  5  milliseconds. 

Performs  a  memory  read  of  the  burst  memory  and  returns 
the  value  in  [HL] . 

Writes  [HL]  to  the  burst  memory. 

Resets  the  burst  memory  address  register  to  the  start 
bank. 

Returns  the  value  of  the  memory  address  register  in 
[AHL] .  Note:  since  the  hardware  counter  itself  cannot 
actually  be  read  back,  the  software  simulates  the 
action  of  the  MAR  whenever  READ,  WRITE,  MARSET  and 
REWIND  are  used. 

This  function  sets  the  "IOMODE"  to  parameter  [A] .  In 
IOMODE  1,  the  carry  flag  will  be  set  when  a  command 
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interrupt  occurs.  This  is  used  by  the  BURST  sampling 
procedure  so  it  need  only  check  carry  to  decide  when  to 
stop. 
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2.20  Burst  Format  Control 

The  BFMT.A  module  controls  the  sampling  format  lists.  As 
described  elsewhere,  the  Burst  can  remember  16  formats,  10  of 
which  are  in  ROM  while  6  are  in  RAM.  This  allows  for 
sophisticated  programming  which  might  take  different  Bursts 
depending  upon  conditions  seen  by  the  MAIN  cpu  decision  maker. 
The  ability  to  hold  multiple  lists  lowers  the  time  needed  to 
switch  between  lists  since  one  need  only  refer  to  the  list, 
rather  than  define  it  each  time. 

The  module  has  the  following  functions: 

INIFMT  Initializes  the  module  and  defines  the  default  RAM 
formats  10  thru  15. 

SETFMT  Sets  which  format  to  use.  On  entry:  [A]=format  number. 
ADDFMT  Add  a  quantity  to  the  current  format.  On  entry:  [A] 
holds  the  quantity’s  multiplexor  address. 

ADRFMT  Returns  the  address  of  the  current  format  in  [HL] . 
LNGFMT  Returns  the  length  of  the  current  format  in  [A] . 

ENDFMT  Returns  the  end  address  of  current  format  in  [HL] . 

Theory  of  Operation 

The  sampling  list  are  contained  in  two  separate  areas,  one 
for  ROM  and  one  for  RAM.  Each  format  is  simply  a  list  of  bytes 
ended  by  an  EOL  (End-of-List)  marker.  The  10  ROM  lists  and  6  RAM 
lists  are  placed  contiguously  in  memory  so  they  occupy  the 
minimum  amount  of  space.  The  code  provides  only  64+6  bytes  of 
total  space  for  the  6  RAM  lists,  so  this  limits  the  RAM 
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quantities  to  a  maximum  of  64. 

Finding  the  start  and  end  addresses  as  well  as  the  length  of 
any  list  is  done  by  linear  search.  Adding  to  a  given  list  in  RAM 
simply  moves  all  RAMLIST  bytes  down  one.  There  isn't  much  to 
this,  so  I  won't  labor  the  description.  Just  look  at  the  listing 
for  more  details. 
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2.21  Burst  Program  Loader 

Just  like  the  MAIN  system,  programs  can  be  loaded  into  the 
memory  of  the  BURST  computer  system  and  then  executed.  Even  more 
so  than  in  the  MAIN  system,  BURST  programs  can  completely  change 

the  way  the  BURST  operates,  since  almost  all  of  the  BURST  is  run 

in  the  foreground. 

For  this  module  there  are  two  entry  points: 

BLDINIT  Initializes  the  module  and  resets  the  load  address 
register  to  point  to  available  memory. 

BLDCMD  Accepts  loading  type  commands: 

BADRH  Set  high  byte  of  address  register 

BADRL  Set  low  byte  of  address  register 

BLOAD  Load  a  byte  into  memory,  increment  register 

BEXEC  Execute  the  program. 

It  is  important  to  note  that  programs  must  begin  with  a  code  "AA" 
in  hexadecimal.  This  is  to  prevent  errant  commands  from  crashing 
the  system.  As  in  the  MAIN  system,  this  byte  is  zeroed  before 
the  program  is  executed. 

BURST  programs  load  at  address  1202H.  That  is  where  the  code 
"AA"  must  appear.  The  first  executable  opcode  must  be  loaded  at 
1203H.  The  user  program  area  extends  from  1203H  to  nearly  17FFH 
less  20  bytes  or  so  for  the  stack.  This  amounts  to  approximately 
1.5  KBytes. 
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2.22  Burst  Sampling  Module 

Burst  sampling  functions  are  contained  in  the  BSMP.A  module. 
These  include  controlling  the  frequency  of  Bursts,  the  memory 
banks  used,  starting,  stopping  and  playing  back  data  to  the  MAIN 
system.  This  module  uses  the  BFMT  module  for  its  format  control. 

The  BSMP  module  has  two  entry  points: 

BSMPINIT  This  entry  initializes  the  module,  sets  initial  default 
values  such  as  the  frequency  and  so  forth. 

BSMPCMD  This  entry  executes  Burst  commands  which  are  in  [HL] 
registers . 


Theory  of  Operation 

INITIALIZATION.  The  initialization  of  the  sampling  module  sets 
up  the  defaults  as  follows:  (1)  use  the  V12  only  format  (2) 
frequency  to  maximum,  (3)  burst  A/D  turned  OFF  to  save  power,  (4) 
memory  banks  4  and  5  turned  ON  while  banks  0  thru  3  are  turned 
OFF.  This  allows  for  small  bursts  of  V12  data  to  be  run  with 
just  a  BGO  command. 

BANK  SELECTION.  If  response  to  Bank  commands,  the  software  sets 
the  memory  address  control  hardware  so  that  the  sampling  uses  all 
of  the  memory  banks  which  are  powered.  Routine  BSELECT  extracts 
the  STBANK  and  ENBANK  (start  and  end  banks)  while  routine  MEMPC 
turns  those  memory  banks  ON  (and  the  others  OFF) . 

A  more  sophisticated  sampling  program  may  wish  to  utilize 
only  part  of  the  memory  at  a  time.  For  example,  one  could  take  6 
separate  Bursts  and  then  play  them  all  out  at  the  same  time,  or 
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perhaps  choose  which  to  play  back  and  which  to  junk.  The  data 
returned  would  be  HELL  to  analyze  of  course. 

BURSTING.  The  process  of  taking  a  Burst  is  as  follows: 

1.  Make  sure  the  A/D  converter  is  turned  ON. 

2.  Compile  the  current  format  into  a  program. 

3.  Send  the  MAIN  computer  information  about  this  burst: 

a)  the  real  frequency  of  the  burst 

b)  the  number  of  milliseconds  to  fill  the  burst 

4.  Rewind  the  memory  and  write  a  "START"  marker 

5.  Check  that  the  memory  is  working  by  reading  back  the 
"START"  marker 

6.  Calculate  the  amount  of  delay  required  for  this  frequency 

7.  Mark  the  memory  as  an  "OPEN"  file. 

8.  Execute  the  compiled  program. 

STOPPING.  The  Bursting  stops  when  the  MAIN  sends  anything  to  the 
Burst.  The  BSTOP  command  turns  OFF  the  A/D  converter  and 
"CLOSES"  the  Burst  memory  by  obtaining  the  Start  and  End 
addresses  of  the  data  in  the  memory.  Since  closing  a  file  may 
take  the  Burst  processor  several  seconds,  the  MAIN  computer  waits 
for  the  BSTOP  command  to  signal  the  end  of  the  file  closing 
process. 

PLAYING  BACK.  The  PLAY  command  starts  the  playback  of  header  and 
data  to  the  MAIN  system.  The  playback  begins  with  the  header 
which  is  played  by  routine  PHEAD.  Once  the  header  is  finished, 
the  data  section  begins. 

The  data  section  is  played  from  the  start  address  (STADR)  to 
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the  end  address  (ENADR)  which  were  determined  at  the  time  of  file 
closing.  Since  memory  errors  due  to  cosmic  ray  upsets,  the  code 
does  not  simply  look  for  the  End  Mark  which  was  written  into  the 
memory . 

Playing  back  may  be  interrupted  by  any  command  from  the  MAIN 
processor.  Bursts  may  be  played  back  over  and  over  again,  but 
this  is  more  of  a  testing  level  feature  than  one  useful  in  orbit. 

DURATION  CALCULATION.  The  calculation  of  the  time  it  takes  to 
fill  the  memory  at  a  given  frequency  is  errant  by  a  small 
fraction  as  a  result  of  the  late  changes  to  the  burst  frequency. 
The  calculation  tends  to  overestimate  the  time  by  about  5 
percent . 

This  calculation  was  originally  going  to  be  used  by  the 
Burst  controller  module  in  the  MAIN  cpu  as  a  way  of  deciding  how 
long  to  wait  for  a  Burst.  This  turned  out  to  be  very  hard  to 
use.  Nevertheless,  it  is  still  available  for  more  sophisticated 
Burst  triggering  algorithms. 

FILE  CLOSING.  Closing  a  memory  file  of  data  means  to  find  the 
start  and  the  end  addresses  of  the  data  in  the  memory.  This  is 
obviously  necessary  in  order  to  play  back  the  data  starting  from 
the  first  data  point  and  ending  with  the  last.  Since  the  memory 
has  a  "wrap-around"  capability,  the  first  data  point  to  be  played 
out  may  occur  anywhere  in  the  memory  and  it  takes  this  routine  to 
figure  out  where  it  is. 

The  first  step  is  to  find  the  End  address  (where  in  the 


memory  the  last  data  point  is)  .  This  is  done  by  writing  an  END 
marker  into  the  memory,  rewinding  and  searching  for  the  END 
marker. 

Step  two  is  to  determine  if  the  Burst  was  short  or  long. 
Short  bursts  occupy  less  than  the  amount  of  available  memory 
while  long  bursts  last  long  enough  to  overfill  the  memory.  Short 
bursts  are  the  easy  case,  detected  by  the  fact  that  their  "START" 
marks  are  still  in  the  memory  (at  the  rewind  point)  .  To  close 
the  file  on  a  short  burst,  the  routine  simply  records  where  it 
found  the  START  and  the  END  markers. 

Long  bursts  are  much  harder  to  close.  They  have  no  "START" 
marker  since  the  wrap-around  feature  of  the  memory  wiped  it  out. 
Long  burst  have  1  END  marker  and  an  unknown  number  of  PAUSE 
markers.  We  know  that  the  very  next  memory  location  following 
the  END  marker  is  some  data,  but  we  don't  know  which  of  the 
quantities  in  the  sample  list  it  corresponds  to.  If  there  are 
three  quantities  in  the  sample  record,  it  could  be  any  one  of 
them.  In  other  words,  we  must  skip  over  the  partial  record  of 
data  following  the  END  marker  (if  there  IS  a  partial  record). 

One  way  to  compute  the  partial  record  is  to  divide  the 
available  memory  by  the  length  of  each  record.  The  remainder  is 
the  amount  to  skip.  The  available  memory  would  be  calculated 
from  the  memory  size  less  the  END  marker  and  PAUSE  markers. 

A  simpler  method  was  to  simply  search  for  the  first  END  or 
PAUSE  marker  following  the  END  marker  while  keeping  track  of  the 
record  elements. 
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2.23  Burst  Compiler 

The  Burst  sampling  program  compiler  is  contained  in  the 
"BCMP.A"  module.  It  has  1  entry  point  as  follows: 

BCMP  :  Compiles  a  high-speed  sampling  program  from  a  sample 

list. 

On  entry:  [HL]  points  to  an  available  code  area; 

[DE]  points  to  a  sample  list; 

[C]  =  size  of  the  sample  list. 

[B]  =  2  for  interrupt  type  timing 
1  for  software  delay  timing 
0  for  no  delay  at  all. 

On  exit:  [HL]  points  to  the  next  available  memory  loc. 

Theory  of  Operation 

Naturally,  one  might  ask  "Why  is  there  a  compiler  in  the 
BURST  computer  system?"  The  reason  is  that  it  is  too  difficult  to 
write  sampling  programs  which  take  into  account  all  the  right 
gate  delays  and  parallelism  provided  by  the  hardware.  The 
compiled  code  runs  extremely  fast  because  its  takes  full 
advantage  of  these  characteristics. 

Much  of  the  details  on  the  burst  sampling  are  discussed  in 
the  hardware  chapter  and  I  won’t  repeat  these.  Rather,  I  list 
below  only  a  few  examples  of  the  code  produced  by  sampling  lists 
of  various  sizes  (the  compiler  produces  binary  of  course) : 
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SINGLE  QTY  SAMPLING  ROUTINE  (NO  DELAY) . 


MVI  B,  f 
RST  3 

LOOP  LHLD  MEM+ ADC+QTY 1 
JNC  LOOP 
JMP  ENDBURST 


INIT(  FREQ=  f  ) 

SAMPLE/STORE  1  POINT 
WAIT  FOR  COMMAND  READY 


The  execution  time  of  the  loop  is  40  cycles  (16  microseconds) 
which  matches  the  hardware  capabilities. 


SINGLE  QTY  SAMPLING  WITH  A  DELAY  OF  C  SAMPLE  PERIODS 

f INIT (  FREQ=  f  ) 


SAMPLE/STORE  1  POINT 
DELAY  C  SAMPLE  PERIODS 


MVI  B,  f 
RST  3 

LOOP  LHLD  MEM+ADC+QTY 1 
MOV  L, C 
CALL  SOFDLA 
JNC  LOOP 
JMP  ENDBURST 

The  sampling  frequency  is  approximately  62.5  KHz  divided  by 
(C+l) .  See  the  section  below  for  more  details. 

MULTIPLE  QTY  (4)  SAMPLING  PROGRAM  WITH  INTERRUPT  TIMING 


MVI 

B,  f 

; INIT(  FREQ=  f  ) 

RST 

3 

t 

LHLD 

MEM+ADC+QTY 3 

;MEM=QTY1 , DIGITIZE 

QTY2 , 

MUX=QTY3 

IN 

7FH 

; (DELAY  10  CYCLES) 

LHLD 

MEM+ADC+QTY  4 

;MEM=QTY2 , DIGITIZE 

QTY  3, 

MUX=QTY  4 

IN 

7FH 

; DELAY  10  CYCLES 

LHLD 

MEM+ADC+QTY 1 

;MEM=QTY3 , DIGITIZE 

QTY  4 , 

MUX=QTY 1 

IN 

7FH 

; (DELAY  10  CYCLES) 

LHLD 

MEM+ADC+QT Y2 

;MEM=QTY4 , DIGITIZE 

QTY1, 

MUX=QTY2 

MOV 

L,C 

; DELAY  C  INTERRUPTS  AT  2 KHZ 

CALL 

INTDLA 

JNC 

LOOP 

;LOOP  UNTIL  CARRY  1 

SET  (CMD  RDY) 

JMP 

ENDBURST 

;THEN  QUIT 

The  sampling  frequency 
the  value  contained  in  the  C 


for  the  loop  is  2/C  KHz,  where  C  is 
register. 


124 


BURST  FREQUENCY  UPDATE.  A  late  modification  to  the  Burst 
frequency  changed  it  from  59.5  to  62.5  KHz  and  the  software  was 
not  able  to  be  updated.  This  causes  the  SOFT-DELAY  routine  to 
delay  more  than  the  equivalent  sample  by  5  percent.  If  C=1  in 
the  above  case  ,  this  would  cause  the  overall  frequency  to  be  2.5 
percent  below  31.25  KHz  or  30.49  KHz.  A  correct  calculation  of 
Burst  frequencies  corresponding  to  the  parameter  RFREQ  and  the 
size  of  the  record  NREC  is  given  below: 

1.  Find  NMAX  in  the  table  corresponding  to  RFREQ. 

RFREQ  14  13  12  11  10  9  8 

NMAX  1  2  3  4  6  10  20 

2.  Calculate  the  number  of  delays  used: 

NDLA  =  NMAX  -  NREC 

3.  Calculate  the  Frequency  as  follows: 

Frequency  =  1000000/  (NREC*16  +  NDLA*16.8) 

Only  high  frequency  bursts  (over  3  KHz)  use  software  delays  to 
regulate  the  frequency.  Interrupt  regulated  frequencies  (2  KHz 
and  under)  are  not  affected. 


The  Burst  computer  system  comes  complete  with  its  own 
floating  point  package  for  the  simple  reason  that  there  was 
plenty  of  room  in  the  ROM,  that  the  DURATION  calculation  was 
facilitated  and  third,  some  ground  loaded  program  may  be  able  to 
use  it.  For  the  sake  of  sanity  in  file-keeping  and  in  order  to 
simplify  the  assembly  process,  it  is  contained  in  the  BFFP.A 
file,  not  in  the  FFP.A  file. 

The  entry  points  are  exactly  the  same  as  those  in  the  MAIN 
floating  point  package  so  please  refer  to  that  section  for 
further  information. 


3 .  Hardware 


The  function  of  this  chapter  is  to  describe  the  circuitry 
and  physical  characteristics  of  the  CRRES  Langmuir  Probe 
Instrument  (AFGL-701-14A)  and  its  spherical  sensors.  It  is 
assumed  that  the  reader  understands  related  parts  of  the  general 
instrument  description. 

This  chapter  describes  each  of  the  seven  boards  of 
electronics  in  701-14A.  The  functions  of  each  board  are 
summarized  below: 


Analog  Board 


Filter  Board 


10  Board 


MAIN  CPU  Board  : 


BURST  CPU  Board: 


Memory  Boards 


Sphere  and  Cylinder  Sensor  Interfaces 
AC  Instrument  Interface 
Filtering  of  sensor  signals 
Fluxgate  and  Search  Coil  Interfaces 
D/A  conversion  for  bias  control 
Relay  controls  for  sensors  and  Analog 
Filter  board  control 

Telemetry  Formatting,  Command  Reception 
MAIN  A/D  Conversion 
High  Speed  Data  Sampling 
Burst  Memory  control  circuitry 
3  Banks  of  32  Kbytes  on  each  board 
Individually  powered 
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3 . 1  The  Analog  Board 

The  "Analog"  board  is  so  called  because  it  handles  the 
primary  analog  inputs  and  outputs  of  the  instrument.  The  primary 
input  signals  are  the  sensor  inputs  from  the  two  spheres  and  two 
cylinders.  The  outputs  are  the  sphere  voltages  which  are  repeated 
to  the  IOWA  Sounder  instrument. 

SPHERE  BIASING.  Each  spherical  sensor  has  three  control 
signals  called  BIAS,  STUB  and  GUARD.  These  are  generated  by 
"offset"  circuits  which  add  the  +/-  2.5  Volt  signals  (supplied  by 
the  IO  board)  to  the  voltage  output  from  the  sphere  preamplifier. 
As  a  result,  these  voltages  track  the  sphere  potential  up  or 
down.  The  range  of  the  STUB  and  GUARD  voltages  is  approximately 
+/-  37  Volts,  while  the  STUB  voltage  ranges  between  +/-  1.25 
Volts.  For  example,  if  the  10  board  supplies  a  +2.5  Volt  signal 
to  BIAS  1,  and  the  sphere  1  preamp  is  1  Volt,  then  the  BIAS  1 
output  will  be  37+1  or  38  Volts.  The  maximum  range  of  these 
outputs  is  +/-  100  Volts. 

SPHERE  MEASUREMENTS.  Each  sphere  produces  two  outputs 
called  V/I  and  I/V.  The  V/I  output  represents  the  voltage 
measured  on  the  sphere  when  the  sphere  is  in  the  voltage  mode, 
and  the  current  collected  when  in  the  current  mode.  The  I/V 
output  is  just  the  reverse  of  these. 

The  "voltage"  output  from  the  sphere  1,  for  example,  is 
current  amplified  by  the  opamp  U5  and  fed  four  places:  1)  the 
GUARD  offset  circuit,  2)  the  STUB  offset  circuit,  3)  the  floating 
power  supply  driver  and  4)  the  signal  divider.  The  floating 
power  supply  driver  (sphere  1)  is  comprised  of  U5,  Q13,  Q14,  etc. 
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and  simply  keeps  the  ground  for  the  sphere  components  near  the 


preamp's  output  voltage.  In  this  way,  the  sphere  preamps  can 
float  between  -100  and  +100  Volts  with  respect  to  the  instrument 
ground,  while  all  the  sphere  op  amps  nead  only  operate  from  +/- 
12  Volts.  The  +/-100  Volt  signal  from  U5  is  divided  down  to  +/-5 
Volts  by  the  resistor  divider  R79/R80  and  is  then  buffered  by  U1 
for  exit  to  the  filtering  board. 

The  "current"  output  from  sphere  1  is  really  the  voltage 
from  the  DAC  plus  the  collected  current  times  the  resistor  in  the 
sphere.  The  op  amp  U4  is  used  to  remove  the  DAC  voltage  from 
this  measurement  while  amplifying  the  signal  a  factor  of  ten. 
The  resulting  voltage,  RI1,  is  fed  to  the  multiplexor  U3  and 
optionally  to  the  Sounder  interface  circuit. 

SPHERE  RELAY  CONTROL.  Each  sphere  contains  two  relays  which 
determine  whether  it's  in  the  voltage  or  the  current  mode.  For 
lack  of  wires  both  relays  are  controlled  using  the  same  wiie. 
Relays  K2  and  K3  control  whether  power  is  sent  down  the  mode 
control  line.  Relay  K1  determines  whether  +35V  or  -35V  will  be 
sent.  Each  sphere  relay  circuit  uses  diodes  to  determine  which 
coils  should  get  the  power  based  upon  the  polarity  of  the  signal. 
Note  that  the  sphere  relays  are  12  Volt  relays,  but  since  the  50 
meter  wire  is  so  resistive,  35  Volts  had  to  be  used  on  this  end. 

CYLINDERS.  Control  of  the  bias  current  to  the  cylinders  and 
receiving  the  measurements  proceeds  in  much  the  same  way  as  the 
spheres.  However,  no  floating  power  supplies  are  used  as  the 
cylinder  amplifiers  work  from  fixed  +/-  35  Volt  supplies. 
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Relays  K4  and  K5  pulse  the  relays  inside  the  cylinder 
preamplifiers  to  either  put  biases  on  the  cylinders  or  not. 
Relay  K6  holds  closed  the  calibrate  relay  inside  the  cylinder 
preamp. 

SENSOR  DIFFERENCING.  The  main  measurement  of  the  instrument 
is  the  difference  in  voltage  between  the  two  spheres  and  between 
the  two  cylinders.  This  difference  is  done  by  opamp  U4  (for  VI  - 
V2)  in  a  way  that  allows  for  the  introduction  of  a  trimming 
potential  from  the  10  board.  This  trim  potential  will  allow  for 
the  near-zeroing  of  any  offsets  which  arise  because  of  radiation 
effects  to  the  opamps. 

DIFFERENCING  AMPLIFICATION.  As  a  precaution  again  possible 
noise  problems  in  the  system,  the  Analog  board  provided  an  extra 
amplifier  for  getting  a  high  gain  version  of  the  difference 
measurement.  These  signals  are  called  V12X50  and  V34X50,  and 
proceed  directly  to  the  inputs  of  the  MAIN  analog  multiplexor. 

DERIVATIVES.  Both  difference  measurements  are  also 
differentiated  to  make  what  are  called  "AC”  signals  V12/RI1  AC 
and  V34  AC. 

RELAYS.  There  are  two  types  of  relays  on  the  Analog  board, 
latching  and  non-latching.  The  former  require  current  to  be 
applied  to  their  coils  for  the  entire  time  they  are  flipped. 
They  flip  within  2  milliseconds  after  current  is  supplied. 

The  latching  type  require  only  a  2  millisecond  pulse 
directed  down  one  of  its  two  coils,  one  to  set  and  one  to  reset 
the  relay.  In  order  to  cut  down  on  the  number  of  drive 
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transistors  required  for  all  these  coils,  a  separate  relay 
(either  K1  or  KO)  is  used  to  determine  whether  current  will  flow 
down  the  set  or  the  reset  coil  of  a  relay.  This  is  illustrated 
below: 

K1  _ i 

Kn  _ !  ! _ 

K1  l _ 

Kn  _ !  ! _ 

Figure  17 .  Relay  Set  and  Reset  Logic 

The  relays  which  are  in  the  spheres  and  cylinders  require 
extra  time  to  flip  since  they  are  only  controlled  by  relays  on 
the  analog  board.  For  example,  to  flip  relay  K18  (sphere  1)  , 
relay  K2  must  go  into  the  set  position.  We  must  wait  for  K2  to 
settle,  then  wait  more  for  K18  to  settle.  Extended  relays  like 
these  are  flipped  as  seen  below: 


SET  7  to  17  : 


RESET  7  to  17  : 
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SET  (18,19)  :  K1 

K(2 , 3) 

RESET  (18,19)  :  K1 

K (2 , 3 ) 


SET  (20,  21)  :  K0  _ 1 

K(4,5)  _ 

"  ™  ™  "  • 

RESET  (20,  21)  :  KO  l _ 

K(4,5)  _ 

Figure  18.  Extended  Relay  Set  and  Reset 
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3 . 2  The  Filter  Board 

The  filter  board  has  three  major  functions:  1)  to  interface 
with  the  Fluxgate  Magnetometer,  2)  to  interface  with  the  Search 
Coil  Magnetometer  and  3)  to  filter  the  above  signals  as  well  as 
the  signals  from  the  Analog  board. 

FLUXGATE  INTERFACE.  The  Fluxgate  signals  (X,Y,  and  Z)  come 
into  the  board  in  +/“  10  Volt  form  (see  page  2  of  the  Filter 
drawings) .  The  BY  input  can  be  multiplied  by  a  factor  of  6  using 
the  amp  U27  when  selected  by  multiplexor  U31.  The  three  signals 
are  rolled  off  to  60  Hz  and  converted  to  +/-  5  Volts  by  one  stage 
of  opamps  U32  and  U34.  These  three  signals  are  called  BXFAST, 
BYFAST  and  BZFAST ,  and  are  sent  to  the  10  board  for  multiplexing 
into  the  Burst  computer  system. 

A  second  stage  of  filtering,  again  using  U32  and  U34,  rolls 
off  these  signals  to  6  Hz  for  input  to  the  MAIN  multiplexor  U29. 

SEARCH  COIL  INTERFACE.  The  Search  Coil  Magnetometer 
measurement  comes  to  the  Filter  board  as  a  differential  signal. 
Amp  U22  converts  this  to  a  single  ended  signal,  ready  to  be  used 
by  multiplexor  U23. 

VARIABLE  FILTERS.  On  the  board  are  seven  programmable 
filters  which  are  used  for  signals  heading  for  the  Burst  computer 
system.  Since  burst  collections  can  be  taken  at  frequencies  from 
10  to  60  KHz,  the  programmable  filters  are  used  to  stop  aliasing 
while  sampling  at  the  lower  rates.  The  heart  of  each  filter  is 
the  D/A  converter  located  in  the  feedback  loop.  The  resistance  in 
the  DAC  changes  the  rolloff  characteristics.  (See  the  filter 
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rolloff  figure  below). 


FIXED  FILTERS.  For  the  sake  of  telemetry  sampling,  signals 
input  to  the  MAIN  multiplexor  are  rolled  off  at  1/2  their 
approximate  sampling  frequencies. 

BAND  FILTERS.  As  a  gauge  of  AC  activity  on  V12/RI1  the 
Filter  board  has  three  comb  filters  called  FI,  F2  and  F3,  whose 
notch  frequencies  are  32,  256  and  2048  Hz,  respectively.  These 
are  drawn  on  page  2  of  the  filter  diagrams. 

KELLEY  GAIN  CIRCUIT.  Finally,  the  analog  or  clean  part  of 
the  KELLEY  automatic  gain  circuit  is  found  on  the  Filter  board. 
The  digital  section  on  the  10  board  controls  the  operations  of 
this  circuit.  See  below  for  the  description. 
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Table  10.  Filter  Rolloffs 


FILTER  BURST  QTY  FILTER  MAX  FREQUENCY 


1. 

V12/RI1  AC 

11.5 

KHZ 

2. 

V2/RI2 

11.5 

KHZ 

3. 

V12/RI1 

25.5 

KHZ 

4  . 

DIRECT 

11.5 

KHZ 

.  5. 

4 

Vl/SC 

15.0 

KHZ 

6. 

V34 

18.0 

KHZ 

» 

7. 

V34  AC 

12.0 

KHZ 
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3 . 3  The  Input/Output  CIO)  Board 

The  primary  functions  of  the  10  board  is  to  interface  the 
central  processor  boards  (MAIN  and  BURST)  with  both  the  ANALOG 
and  FILTER  boards.  The  fundamental  reason  for  a  separate  board 
comes  from  the  requirement  that  all  analog  signals  must  be  kept 
as  clean  as  possible  of  digital  noise. 

There  are  six  subcircuits  to  the  10  board: 

1)  Bias  control 

2)  Relay  control 

3)  Boom  status  information 

4)  Filter  control 

5)  Kelley  Automatic  Gain  Control  (Digital  part) 

6)  BURST  multiplexing  and  Gain  control 

SERIAL/PARALLEL  CONVERSION.  The  10  board  is  controlled  by  a 
total  of  6  lines  over  which  information  is  passed  serially.  The 
historical  reasoning  behind  this  was  to  minimize  wires  travelling 
between  the  digital  and  analog  sections  of  the  instrument  and,  by 
such  an  arrangement,  optimize  the  ability  to  shield  fewer  wires, 
etc.  As  it  stands,  this  vestigial  protocol  could  be  removed  with 
little  overall  effects  to  cleanliness,  while  vastly  improving  the 
bandwidth  of  processor  control  to  the  board. 

BIAS  CONTROL.  The  bias  currents  which  go  to  both  the 
spherical  and  cylindrical  boom  systems  are  controlled  by  eight  8- 
bit  DAC's  (packaged  in  4  AD7528  dual-DAC's) . 

RELAY  CONTROL.  The  relay  control  circuit  is  responsible  for 
providing  power  to  the  relay  coils  on  the  analog  board.  The 
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circuit  can  simultaneously  provide  coil  power  to  a  total  of  three 
relays:  KO,  K1  and  1  of  K2  thru  K17.  (Note:  there  are  no  relays 
K12  and  K15)  .  This  is  accomplished  using  7  bits  from  the  10 
shift  register:  2  bits  directly  control  the  KO  and  K1  coils 
through  coil-driver  circuits;  5  bits  control  relays  K2  thru  K17 
using  one  disable  line  and  4  address  lines  to  select  1  relay  coil 
using  2  3-to-8  decoders. 

Each  coil  driver  consists  of  a  4050  gate,  a  base  current 
limiting  resistor  and  a  PNP  transistor.  The  normal  "OFF" 
condition  is  a  high  level  of  the  4050  which  causes  no  current  to 
be  drawn  thru  the  transistor.  A  low  level  on  the  4050  turns  "ON" 
the  transistor  and  pulls  roughly  20  times  that  current  through 
the  relay  coil  which  is  attached  between  the  transistor  and  the  - 
7  Volt  supply. 

The  minimum  output  sink  current  of  the  4050B  is  roughly  2na 
when  the  4050  is  commanded  low  and  its  output  held  at  0.4  Volts. 
The  minimum  current  delivered  thru  the  base  is  limited  by  the 
2.2K  resistor  which  at  4  Volts  is  around  2ma.  With  a  gain  of  20 
through  the  transistor,  deliverable  current  to  the  relay  coil  is 
approximately  40ma.  Smaller  resistors  (3.3K)  are  used  for  the 
latching  type  relay  drivers  and  limit  deliverable  current  to  25 
ma  each.  Since  the  relay  coil  resistances  are  390  and  500  Ohms 
for  the  non-latching  and  latching  types,  respectively,  each  coil 
will  see  12  volts  across  it  when  commanded.  This  retains  a  25% 
margin  over  the  minimum  guaranteed  switching  voltage  for  these 
relays. 

The  power  dissipated  is  each  transistor  itself  is  .25V  x 
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40ma  =  10  milliwatts  which  is  safe  for  continuous  operation. 

BIAS  CONTROL.  The  eight  biases  which  can  be  applied  to  the 
spheres,  the  stubs,  the  guards  and  the  cylinders,  are  controlled 
by  circuitry  on  the  10  board.  Each  bias  voltage  generated  is  a 
bipolar  signal  which  gets  added  to  other  signals  on  the  analog 
board. 

Each  bias  voltage  is  made  using  1/2  of  a  7528  dual  D/A 
converter  whose  reference  is  tied  to  +5  Volts.  The  current 
output  is  converted  to  a  voltage  by  an  inverting  amplifier  whose 
output  is  in  the  0  to  -5  Volt  range.  This  signal  is  then 
subtracted  from  a  -2.5  Volt  reference  by  a  second  op  amp  whose 
output  is  bipolar  and  centered  on  zero  Volts. 

Each  7528  is  programmed  by  its  8  parallel  input  lines  and 
chip  select  which  are  attached  to  the  serial  shift  register 
mentioned  earlier.  The  write  and  DAC  select  (A/B)  are  directly 
controlled  by  MAIN  computer  output  pins. 

Note  that  the  sharing  of  3  lines  between  the  bias  circuitry 
and  relay  control  has  the  limitation  that  one  cannot  hold  relay 
coil  K2  thru  K17  while  changing  the  bias  D/A  values. 

BOOM  STATUS.  The  10  board  is  also  responsible  for  making 
motor  currents,  length  potentiometers  and  thermistors  into 
voltages  for  the  MAIN  A/D  multiplexor.  Converting  motor  current 
into  voltages  involves  simple  op  amps.  Measuring  the  lengths  and 
temperatures  merely  requires  pull-up  resistors. 

FILTER  CONTROL.  The  10  board  controls  the  low  pass  filters 
and  multiplexors  of  the  Filter  board  with  8  strobe  signals,  8 
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data  lines,  and  5  multiplexor  bits.  These  are  shifted  into  a  24- 

bit  shift  register  composed  of  3  4094  shift  registers.  This  24- 

bit  register  re-uses  the  same  clock  and  data  lines  as  the  16-bit 

register  for  biasing  and  relay  control,  but  has  a  separate  strobe 

line.  Thus,  one  can  program  only  the  24-bit  or  the  16-bit 

I 

register  at  a  time. 

KELLEY  GAIN  CONTROL.  The  digital  control  section  for  the 
automatic  gain  circuit  consists  of  an  up-down  counter  (54193) ,  a 
latch  (4042)  and  some  random  logic.  On  a  rising  edge  of  "GAIN 
CTL  MAIN",  the  4042  latches  in  the  OVER  and  UNDER  signals  which 
are  determined  by  comparators  on  the  Filter  board.  These  latched 
values  are  combined  with  the  strobe  signal  and  limit  checking 
logic  to  provide  either  a  "count  up"  or  "count  down"  signal  to 
the  54193.  Limit  check  is  performed  to  keep  the  gain  in  the 
range  of  0  to  13. 

BURST  MULTIPLEXING  AND  AUTOGAIN  CONTROL.  The  BURST 
multiplexor  circuit  is  placed  on  the  10  board  instead  of  the 
Filter  board  because  of  the  need  to  switch  its  mux  address  at 
high  speed.  Between  the  Filter  board  and  the  10  board  are 
isolation  ("feedthru")  filters  which  keep  the  Filter  board  free 
from  digital  noise. 

The  multiplexor  has  16  input  channels  which  are  addressed  by 
BURST  MUX  A0  thru  A3.  The  output  goes  to  both  "times  50"  and 
"times  1"  amplifiers  as  well  as  a  bipolar  comparator  operation. 
The  comparator  is  formed  by  2  CMP04  comparator  stages,  one  for 
positive  and  one  for  negative  signals.  Their  outputs  are  open 
collector  and  thus  pull  down  when  they  are  active.  The  limit 
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used  to  decide  whether  the  signal  is  "high  gain-able"  is  roughly 
1  65th  of  full  scale. 

The  "times  50"  amplifier  has  one  additional  feature  which 
speeds  up  the  process  of  preparing  a  quantity  for  digitization. 
The  feedback  loop  is  clamped  so  that  the  op  amp  cannot  saturate. 
Once  in  saturation,  this  type  of  amplifier  can  take  many 
microseconds  to  work  properly  again.  Thus,  no  matter  the  prior 
state  of  the  multiplexor,  the  high  gain  amp  will  be  ready  for  the 
new  quantity. 
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Figure  19 .  Filter  Board  Control  Register  Definition 


! K  MMMMMM ! DDDDDDDD ! FFFFFFFF ! 

- _ i _ i _ i 


MSB 


LSB 


where  F  represents  the  Filter  Strobes  as  follows: 


(LSB) 

0: 

VTRIM 

1: 

V12/RI1AC 

2: 

V2/RI2 

3: 

V12/RI1 

4 : 

DIRECT  AC 

5: 

Vl/SC 

6: 

V34 

(MSB) 

7: 

V34AC 

and  D  is  8-bit  data  for  the  filters  as  follows: 


1:  FILTER  AT  LOWEST  ROLLOFF  VALUE 

255:  FILTER  AT  HIGHEST  ROLLOFF  VALUE 

0:  FILTER  UNDEFINED  (DO  NOT  USE) 

and  M  represents  the  Filter  Multiplexor  bits  as  follows: 


(LSB)  0:  V12/RI1  CONTROL -  0  =  RI1  1  =  V12 

2,1:  6-POLE  SELECT  -  00  =  V2/RI2 

01  =  V12/RI1  RAW 


10  =  SC 

11  =  V34 

RAW 

3: 

Vl/SC  CONTROL  - 

0  =  SC 

1  =  VI 

4 : 

BY/BY6  CONTROL  - 

0  =  BY 

1  =  BY* (-6) 

5: 

V2/RI2  CONTROL  - 

0  =  RI2 

1  =  V2 

and  K  represents  the  Kelley  Gain  Control  circuit  reset 

1:  Holds  Kelley  Gain  Control  circuit  reset 

0:  Allows  gain  circuit  to  operate 
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Figure 


WHERE 


20.  Analog  Board  Control  Register  Definition 


1  DDDDDDDD ! AAAAAAAA ! 

f _ f _ f 


D  is  the  data  to  the  DAC's  or  the  relay  number 
A  represents  the  Analog  select  bits  as  follows: 


0: 
1: 
2: 
3: 
4 : 
5: 
6: 
7: 


Bias  1/2  DAC  Select 
Stub  DAC  Select 
Guard  DAC  Select 
Bias  3/4  DAC  Select 
Disables  Relays  K2-K18 
Relay  Set  Select 
K0  coil 
K1  coil 


(Active  low) 
(Active  low) 
(Active  low) 
(Active  low) 
(l=disabled) 
(0  for  K2-9) 
(Active  low) 
(Active  low) 
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3 . 4  The  Main  Processor  Board 

The  main  processor  board  is  the  heart  of  the  instrument. 
Information  flows  to  and  from  the  outside  world  to  all  parts  of 
the  instrument  through  this  board.  It's  basic  purpose  is  in 
digitizing  data,  formatting  telemetry,  and  receiving  commands 
from  the  ground.  Associated  with  those  services,  this  processor 
controls  the  analog  and  filter  boards,  calculates  magnetic  field 
data  for  the  LEPA  instrument,  and  controls  the  Burst  computer. 
The  following  paragraphs  describe  the  subcircuits  of  this  board. 

THE  PROCESSOR.  Central  to  the  design  is  the  processor  itself 
(U2) ,  a  Sandia  SA3000  which  is  really  just  the  radiation  tolerant 
version  of  the  Intel  8085  (although  in  CMOS) .  The  input  crystal 
frequency  used  is  5  MHz  which  produces  an  internal  cycle  time  of 
400  nanoseconds.  This  is  a  lower  frequency  than  is  possible  with 
the  part  (post-radiation)  and  was  chosen  since  it  would  both 
increase  the  reliability  of  the  part  as  well  as  lower  its  power 
consumption. 

Connected  to  the  processor  buss  for  compatibility  with  the 
OKI  processor  are  pullup  resistors  (U29)  which  give  the  buss  some 
direction  whenever  the  OKI  8085  part  is  tristated.  This  occurs  at 
reset  and  whenever  the  cpu  executes  a  HLT  instruction.  The  board 
thus  supports  both  the  Sandia  and  OKI  manufactured  parts. 
However,  if  the  Sandia  part  is  to  be  used,  the  resistor  package 
should  not  be  installed  since  the  Sandia  has  weak  output  latches 
which  might  fight  with  the  weak  resistors. 

One  item  to  note  about  the  Sandia  cpu,  however,  is  that  it 
tends  to  not  start  up  using  the  standard  crystal  interface  (2 
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lOpF  capacitors  on  pins  1  and  2).  Instead,  Sandia  uses  the  less 
common  interface  as  shown  on  the  drawing  (1  10  Mohm  between  pins 
1  and  2,  1  20  pF  capacitor  on  pin  1  only). 

The  8085  multiplexes  its  low  8  address  bits  with  its  data 
bits  and  this  causes  problems  for  ROM  and  RAM  devices  which 
require  the  low  address  bits  to  be  stable  for  the  entire  READ 
cycle.  For  this  reason  a  buss  latch  (U3)  and  pullups  (U47)  are 
included.  The  latch  holds  the  low  8  address  lines  which  are 
strobed  out  by  the  processor  while  ALE  is  high. 

INTERRUPTS.  The  processor  can  be  interrupted  by  any  of  five 
types  of  events.  In  order  of  priority  from  top  to  bottom  they 
are  1)  WatchDog  Timer  Overflow,  2)  1  KHz  clock,  3)  Major  Frame 
pulse,  4)  Command  Envelope,  and  5)  RC  Int.  Interrupts  3  and  4 
are  simply  the  filtered  signals  from  the  spacecraft  interface. 
The  1  KHz  clock  is  the  2  KHz  telemetry  synchronous  clock  divided 
by  2  by  the  flip-flop  U9A.  The  WatchDog  Timer  Interrupt  is  the 
very  highest  priority  interrupt  and  is  connected  to  the  Non- 
Maskable-Interrupt  of  the  8085  processor  (see  below) . 

The  RC  Interrupt  is  used  by  the  software  to  shut  off  the  cpu 
for  a  time  while  the  A/D  converter  is  operating.  The  software 
simply  outputs  a  ”1”  to  the  RC  using  U14  pin  1  and  goes  into 
HALT.  The  interrupt  wakes  up  the  processor  after  approximately  1 
RC  time  of  3  3  microseconds  so  it  can  get  the  results  of  the 
conversion.  (the  conversion  completes  in  11.2  microseconds.) 

WATCHDOG  TIMER.  The  Watchdog  timer  is  a  small  circuit  (U5) 
which  is  intended  to  "wake-up"  software  which  has  crashed  or 
gotten  lost  as  a  result  of  a  Cosmic  Ray  upset,  other  radiation 
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damage  or  errant  commanding.  In  actuality,  it  is  a  counter  which 
is  incremented  by  the  Major  Frame  pulse  (every  4  seconds)  and 
reset  by  software.  If  the  software  does  not  reset  this 
timer/counter  in  any  major  frame,  the  WatchDog  will  stop  the 
software  by  issuing  a  Non-Maskable-Interrupt. 

WAIT  STATE  GENERATOR.  Since  some  of  the  design  uses  4000 
series  CMOS  devices  which  are  not  fast  enough  (over  temperature) 
to  drive  the  8085  bus  at  5  MHz,  a  wait  state  generator  is 
included  to  provide  a  small  delay  when  these  devices  are 
addressed.  More  specifically,  the  wait  state  is  applied  whenever 
an  address  of  8000H  or  greater  is  used.  All  CMOS  devices  which 
need  a  wait  state  are  given  an  address  in  this  range. 

The  wait  state  works  as  follows.  The  falling  edge  of  ALE 
clocks  valid  A15's  into  the  flip-flop  U10B.  If  A15  is  a  1 
(address  above  8000H)  then  the  inverted  Q  goes  low  which  declares 
a  NOT-READY  condition.  This  will  cause  the  8085  to  delay  its 
READ  or  WRITE  cycle  until  RDY  is  1  when  it  begins  a  clock  cycle. 
The  wait  state  generator  releases  control  of  the  8085  on  the 
first  rising  edge  of  CLK  since  U10A  takes  A15(=l)  into  its  D 
input,  causing  its  -Q  output  to  go  low,  thus  resetting  U10B. 
This  action  causes  the  -Q  of  U10B  to  go  high,  which  re-enables 
the  RDY  input. 

ADDRESS  DECODING.  Devices  are  distinguished  from  one 
another  by  the  3-to-8  line  decoders  U22  and  U25.  Both  are  Sandia 
2995' s  which  are  emulations  of  the  standard  74LS138  device.  U22 
handles  addresses  over  8000H  while  U25  handles  addresses  below 
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8000H.  A  full  address  map  is  given  below. 

READ  ONLY  MEMORY  (ROM) .  The  program  memory  for  the  computer 
is  contained  in  a  pair  of  Raytheon  29  67  3  SMB  ROMS,  each  holding 
4096  8-bit  bytes  of  information.  To  lower  the  power  consumption 
of  these  devices,  5  Volts  is  provided  only  while  they  are 
selected.  This  is  accomplished  using  the  transistor  circuits 
Q1/Q2  and  Q3/Q4 .  U23C  and  U23D  provide  logic  level  1  whenever 
the  respective  ROM  is  being  selected  by  the  decoder.  This  high 
level  causes  current  to  flow  through  the  base  resistor  (R55  or 
R52)  turning  ON  the  npn  transistor  (Q1  or  Q3) .  The  collector  is 
pulled  near  ground  which  causes  the  base  of  the  pnp  transistor 
(Q2  or  Q4)  to  turn  ON.  This  causes  the  ROM  power  pin  to  be 
pulled  up  near  5  Volts.  For  full  TTL-CMOS  compatibility,  bus 
pullups  (U30)  are  used  on  the  outputs  of  these  ROMS. 

RANDOM  ACCESS  MEMORY.  The  RAM  for  the  main  computer  system 
is  comprised  of  8  5114' s,  each  of  which  organized  as  4  bits  by 
1024.  These  are  arranged  in  pairs,  one  taking  the  high  nibble 
and  one  taking  the  low  nibble.  The  addressing  of  these  pairs  is 
done  with  another  SA2995  decoder  (U26) ,  coupled  with  a  READ-or- 
WRITE  signal  from  gate  U23A.  This  strange  configuration  is 
brought  about  by  the  fact  that  the  5114  memories  are  unlike  most 
microprocessor  compatible  memories;  i.e.  they  have  no  READ 
input.  To  READ  a  5114,  one  merely  has  to  select  it  and  not  WRITE 
to  it.  To  WRITE  to  a  5114,  one  must  signal  WRITE  to  it  before 
one  selects  it.  Hence,  the  select  signals  for  these  chips  must 
arrive  during  the  processor  READ  cycle  or  WRITE  cycle. 


As  a  final  note,  both  the  NAND  gate  and  the  decoder  must  be 
fast  in  order  for  this  circuit  to  work.  The  response  time  of  the 
circuit  is  the  sum  of  the  NAND,  the  decoder,  and  the  RAM  itself. 
Since  the  processor  takes  3/2  cycle  (400  ns  each)  the  response  of 
this  circuit  must  be  under  600  nanoseconds.  The  5114  responds  in 
400  nanoseconds  and  so  the  NAND  and  decoder  must  total  less  than 
200  nanoseconds  (worst  case) . 

SERIAL  CONTROL  REGISTER.  The  main  processor  controls  the 
operations  of  the  Analog,  Filter  and  10  boards  using  a  serial 
protocol  in  order  to  minimize  the  number  of  interboard 
connections  needed.  U4  is  a  4034  register  which  is  employed  to 
latch  data  from  the  processor  for  the  other  boards.  Software 
actually  serializes  the  data  and  presents  it  to  the  port. 

BOOM  STATUS  INPUTS.  Microswitch  closures  from  the  boom 
units  are  input  to  the  microprocessor  via  U18  which  is  another 
4034  register.  These  inputs  are  not  filtered  in  hardware  (which 
saves  some  components)  and  are  expected  to  be  software  de- 
bounced. 

BOOM  MOTOR  CONTROL.  The  two  boom  motor  relays  are  contained 
in  the  power  supply  unit  of  the  instrument  (for  height  reasons). 
The  control  lines  for  those  relays  consist  of  four  lines,  one 
wire  for  each  coil;  i.e.  an  ON  COIL  and  OFF  COIL  for  two  relays. 
Each  control  wire  uses  an  inverter  (for  current),  a  base  resistor 
and  a  transistor.  A  logic  level  1  from  the  port  to  any  of  these 
four  wires  energizes  the  respective  relay  coil.  At  reset,  the 
4034  is  tri-stated  so  that  the  100K  resistors  will  guarantee  the 


motor  coils  will  be  off. 

COMMAND  SHIFT  REGISTER.  U24  and  U27  are  a  pair  of  4094 
shift  registers  each  having  8  bits.  The  resulting  16-bit 
register  is  clocked  into  the  register  by  the  falling  edge  of 
"COMMAND  CLOCK"  (after  it  has  been  filtered  etc) .  The  COMMAND 
ENVELOPE  signals  an  interrupt  to  the  processor  all  the  time  the 
command  is  being  shifted  into  the  register.  Software  can 
acknowledge  the  interrupt  when  shifting  begins  but  must  wait 
until  the  shifting  ends  to  receive  the  data. 

TELEMETRY  SHIFT  REGISTER.  U31  and  U32  form  a  16-bit 
telemetry  register  using  a  pair  of  4021  parallel-to-serial 
converters.  Each  is  clocked  out  by  the  rising  edge  of  GATED 
SHIFT  CLOCK.  The  very  first  bit  is  therefore  valid  only  until 
that  first  rising  edge. 

LEPA  SHIFT  REGISTER.  The  main  processor  sends  reduced 
magnetometer  data  to  the  LEPA  instrument  via  a  16-bit  register 
(U19  and  U20)  using  exactly  the  same  protocol  as  the  telemetry 
shift  register.  The  LEPA  instrument  provides  the  pulses  when 
needed  to  shift  data  out.  Status  of  the  register  is  provided  by 
the  main  processor  using  the  MAG  BUSY  signal  (U34  and  Q6) . 

SUN  PULSE  COUNTER.  Once  per  spin  while  the  spacecraft  is  in 
sunlight,  a  sun  pulse  will  occur.  Each  pulse  toggles  a  flip-flop 
(U9B)  which  can  be  read  in  the  most  significant  bit  of  U12.  The 
software  defines  a  sun  pulse  as  a  change  in  the  polarity  of  the 
flip-flop. 
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BURST  CONTROL.  The  Burst  computer  can  be  reset  using  the 
"BRESET"  output  of  U34.  This  is  useful  for  stopping  whatever  the 
Burst  computer  was  told  to  do,  errant  commanding,  crashed 
programs,  or  whatever. 

THE  MAIN  MULTIPLEXOR.  The  multiplexor  circuit  starts  with  a 
register  to  hold  the  multiplexor  quantity  (U13) .  Some  of  these 
bits  go  to  another  part  of  the  multiplexor  which  is  on  the  10 
board  (in  a  clean  area) .  Two  eight  line  multiplexors  (Harris 
508A '  s)  are  on  the  CPU  board  (U8  and  U21)  .  U21  is  used  for 
selecting  analog  monitors  while  U8  is  used  to  select  between  the 
offboard  multiplexor  outputs.  The  output  signal  is  held  by  a  .01 
microfarad  capacitor  (C8)  while  U8  is  disabled  (holding  pin  2 
low)  . 


The  signal  is  amplified  by  op-amp  U16B  since  the 
multiplexors  have  a  large  impedance  over  temperature  which  would 
contribute  to  signal  noise.  Also,  the  input  to  the  AM6112  is  a 
very  low  impedance  to  the  internal  DAC.  Pretty  hefty  spikes  come 
out  of  the  AM6112  input  pin  and  the  opamp  takes  care  of  these. 

Another  amplifier  is  needed  to  buffer  the  analog 
housekeeping  values  which  pass  through  U21.  Something  that  isn't 
apparent  when  one  first  looks  at  the  U8  to  C8  connection  is  that 
it  has  a  very  low  impedance  (maybe  200  to  1000  Ohms) .  Any  input 
to  U8  must  be  buffered  by  an  amplifier.  This  is  true  of  any 
science  quantity  already,  but  the  analog  monitors  are  simply 
resistors  and  such.  U16c  buffers  the  signals  from  those  monitors 
before  going  into  U8.  (It  is  amazing  to  me  that  the  ISEE 
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instrument  had  no  such  buffer.) 

ANALOG  TO  DIGITAL  CONVERSION.  The  analog  to  digital 
conversion  circuit  is  comprised  of  three  parts,  namely,  the  A/D 
itself,  a  clock,  and  a  5  Volt  reference.  The  A/D  converter  is  a 
microprocessor  buss  compatible  device  made  by  Advanced  Micro 
Devices  (the  AM6112) .  It  can  digitize  a  12-bit  quantity  in  as 
little  as  4  microseconds  (according  to  the  company  promises)  but 
is  in  this  circuit  set  to  convert  in  10.0  microseconds.  The 
flip-flop  (U46A)  divides  the  processor  clock  by  2  in  order  to 
clock  the  6112.  Each  clock  period  is  800  nanoseconds  and  a 
conversion  requires  12.5  cycles. 

Initially,  the  A/D  timing  was  a  simple  delay  loop  in  the 
conversion  software.  After  the  prototype  was  completely 
assembled  and  closed  up  against  outside  noise,  it  was  found  that 
the  A/D  was  missing  codes.  Testing  proved  that  the  6112  was 
sensitive  to  the  operation  of  the  CPU,  even  though  the 
manufacturer  claims  this  isn't  true.  With  the  addition  of  the  RC 
interrupt  circuit,  conversions  were  greatly  improved. 

Finally,  the  reference  circuit  for  the  6112  converter  is 
composed  of  a  Precision  Monolithics  REF-02  (U7)  followed  by  an  op 
amp  (U16A)  .  One  may  notice  if  one  reads  the  information  on  the 
6112  that  it  has  an  internal  reference  circuit.  While  this  is 
true,  it  has  been  shown  to  be  rather  rad-soft;  i.e.  the  reference 
voltage  drifts  rather  badly  after  radiation.  The  REF-02  doesn't 
have  such  a  problem  in  radiation.  Variable  resistor  R70  is 
provided  to  trim  the  reference  circuit  so  that  U6  pin  20  is 
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2.5000  Volts. 


SUMMARY  OF  MAIN  COMPUTER  I/O.  Below  is  a  short  summary  of 
the  input  and  output  ports  decoded  on  the  MAIN  processor  buss. 

Analog  to  Digital  Converter  Control  (STA  5001H) 


•  • 

! . MMB! 

i _ _ i 

m- -  1  =  2'S  COMPLEMENT  OUTPUT,  0  =  OFFSET  BINARY 

! ' -  MODE  =  00  :  WRITE  STARTS  CONVERIONS 

• -  01  .  READ  STARTS  CONVERSIONS 

10  :  READ  STARTS  CONVERSIONS 

11  :  WRITE  STARTS  CONVERSIONS 


Analog  to  Digital  Converter  Read  (LHLD  5000H) 


! LLLLLLLL !  :  5000H  -  LOW  BYTE  OF  CONVERSION 


+ - + 

! _ HHHH !  :  5001H - HIGH  4  BITS 

I _ _ _ I 


Multiplexor  Control  (OUT  0E0H) 


JTAAAAAAA! 


A  is  the  MAIN  multiplexor  address 
described  by  Table  1-1 

T  is  the  TRACK/HOLD  signal  (0  =  TRACK) 


Command  Input  Register  (LHLD  0AFFFH) 


J LLLLLLLL!  :  AFFFH  -  LOW  BYTE  OF  THE  COMMAND 

! HHHHHHHH !  :  B000H  -  HIGH  BYTE  OF  THE  COMMAND 

i _ i 
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Telemetry  Output  Register  (SHLD  OAFFFH) 


! LLLLLLLL !  :  AFFFH  -  LOW  BYTE  OF  THE  TELEMETRY  WORD 

+— — — — + 

! HHHHHHHH !  :  BOOOH  -  HIGH  BYTE  OF  THE  TELEMETRY  WORD 

i _ i 


Deployment  Unit  Microswitches  (IN  90H) 


•  • 

J 22221111! 

i _ i 


BOOM  1  LEFT  COVER 
BOOM  1  TURNS  COUNTER 
BOOM  1  RIGHT  COVER 
BOOM  1  END-OF-WIRE 
BOOM  2  LEFT  COVER 
BOOM  2  TURNS  COUNTER 
BOOM  2  RIGHT  COVER 
BOOM  2  END-OF-WIRE 


(0 

= 

COVER 

ON) 

(0 

= 

CO  TFR 

ON) 

(0 

= 

ENb-OF-WIRE) 

(0 

= 

COVER 

ON) 

(0 

s 

COVER 

ON) 

(0 

= 

END-Or-WIRE) 

General  Status  Input  (IN  80H) 


•  • 

IS. . . KKKK  J 

i • 


i  i  - - 

•  • 

KELLEY 

GAIN 

BIT 

(LSB) 

i  - _ 

KELLEY 

GAIN 

BIT 

KELLEY 

GAIN 

BIT 

KELLEY 

GAIN 

BIT 

(MSB) 

* -  SUN  PULSE  INDICATOR 

General  Control  Output  (OUT  COH) 


•  • 

!  KLBWMMMM i 
• _ « 

!!!!!!!' -  MOTOR  1  RELAY  OFF  COIL 

!!!!!!' -  MOTOR  1  RELAY  ON  COIL 

! J ! ! ! * -  MOTOR  2  RELAY  OFF  COIL 

mm- -  MOTOR  2  RELAY  ON  COIL 

!!!' -  WATCHDOG  RESET  CIRCUIT  (1=RESET) 

! ! ' -  BURST  COMPUTER  RESET  (0  =  RESET,  1=RUN) 

!' -  LEPA  REGISTER  LOAD  STATUS  (1  =  LOADING) 

' -  KELLEY  GAIN  CHANGE  STOBE  (RISING  EDGE) 
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Serial  Control  Output  (OUT  0F3H) 


•  • 

2R.ZWFACD! 

i  i 

!!!!!!!' - D  is  the  data  (positive  polarity) 

!!!!!!' -  C  is  the  clock  (rising  edge) 

!!!!!' -  A  is  the  Analog  board  strobe  (active  high) 

!!!!' -  F  is  the  Filter  board  strobe  (active  high) 

mi- -  w  is  the  -WR  signal  to  the  7528  DACs  (active  low) 

!!' -  Z  is  the  A/-B  signal  to  the  7528  DACs  (1=A  side  DAC) 


R  is  the  RC  interrupt  circuit  control  (1  =  interrupt) 


LEPA  Instrument  Communication  (OUT  90H,  OUT  DOH) 


•  • 

!  LLLLLLLL!  :  090H - LEPA  DATA  REGISTER 

i  _ _ _ _ _  i 


•  • 

! HHHHHHHH !  :  ODOH - LEPA  MODE  REGISTER 

i  t 
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3 . 5  The  Burst  Processor  Board 

The  Burst  computer  system  is  a  slave  of  the  MAIN  processor 
and  is  dedicated  to  the  singular  task  of  high  frequency  sampling 
and  storage  of  field  data.  Equipped  with  its  own  multiplexor, 
analog  to  digital  converter  and  a  very  large  memory,  this 
processor  non-determinist ically  records  data  in  commanded  formats 
at  frequencies  of  up  to  60  KHz.  The  following  paragraphs 
describe  the  subcircuits  of  the  Burst  system. 

THE  PROCESSOR.  The  Burst  processor  is  the  same  computer 
used  by  the  MAIN  system,  namely  a  Sandia  SA3000,  running  at  5  MHz 
input  frequency  just  like  the  MAIN  system.  And  similar  to  that 
system,  the  low  address  pins  are  latched  by  an  8-bit  latch  (U19) 
on  the  high  level  of  ALE  (see  the  MAIN  PROCESSOR  description) . 

INTERRUPTS.  The  BURST  system  has  two  types  of  interrupts: 
1)  the  BCMD  line  from  the  MAIN  system  and  2)  the  word  rate  clock 
interrupts  (2  KHz)  from  the  telemetry  system.  The  BCMD  line  is 
the  higher  priority  of  the  two  and  is  used  to  signal  the 
beginning  if  some  communication  from  the  MAIN  processor.  The  2 
KHz  interrupt  is  used  to  sample  data  synchronous  with  the 
telemetry  system  whenever  frequencies  of  the  word  rate  or  less 
are  requested. 

ADDRESS  DECODING.  The  BURST  system  devices  are 
distinguished  from  each  other  by  U25,  a  3-to-8  line  decoder  the 
SA2995.  The  eight  decoded  outputs  operate  as  0,  1000H,  2000H, 

system  operates  on  ANY  address  between  8000H  and  FFFFH  so  that  it 
can  be  activated  at  the  same  time  as  any  other  device  (see  the 
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memory  circuit  below) . 


ROM/RAM.  The  Read  Only  Memory  for  the  BURST  computer  is 
contained  in  a  single  4096x8  chip,  a  Raytheon  29673SMB  (U26) .  A 
power  controller  circuit  similar  to  those  on  the  MAIN  system  is 
used  here  (U24A,  Q12  and  Q13). 

The  Random  Access  Memory  for  the  BURST  system  consists  of  4 
5114' s  (U27  thru  U30)  which  together  comprise  a  total  of  2048 
bytes  of  memory  and  are  addressed  as  1000H  to  17FFH.  The  RAM  is 
selected  in  a  manner  similar  to  that  used  in  the  MAIN  system. 

KELLEY  GAIN  CONTROL.  The  Kelley  automatic  gain  control 
circuit  has  4-bits  of  digital  information  which  describe  its 
current  gain  state.  These  bits  are  input  to  the  BURST  system  by 
the  8-bit  register  U36  (four  bits  unused) . 

THE  BURST  MULTIPLEXOR.  The  BURST  system  multiplexor  address 
is  controlled  by  an  8-bit  register  (U37)  which  provides  4  bits  to 
the  multiplexor  located  elsewhere  and  3  bits  of  local  control  (1 
bit  is  not  used) .  See  the  BURST  MUX  address  table. 

The  way  in  which  data  is  written  to  this  latch  dramatically 
differs  from  normal  buss  operations.  Instead  of  responding  to  a 
write  signal,  this  latch  grabs  bits  from  the  low  address  buss 
when  the  A/D  low  byte  is  read.  The  facilitates  high  speed 
sampling  which  is  described  a  little  bit  later. 

ANALOG  TO  DIGITAL  CONVERSION.  The  BURST  A/D  circuitry  is 
quite  a  bit  more  complicated  than  the  equivalent  circuit  in  the 


MAIN  system,  basically  resulting  from  the  very  high  sampling  rate 
requirement.  There  are  3  major  features  added  to  this  circuit  as 
compared  to  the  MAIN:  1)  a  high  speed  sample  and  hold  is  used,  2) 
automatic  gain  control  is  accomplished  in  hardware,  and  3)  most 
of  this  circuit  can  be  powered-down. 

At  the  heart  of  all  this  is,  of  course,  the  A/D  itself  - 

an  AM6112  (U21)  which  is  the  same  device  used  in  the  MAIN  system. 
On  its  digital  side  are  two  devices  namely  a  buss  tranceiver 
(U20)  and  a  4050  (U31)  which  isolate  the  AM6112  from  the 
processor  buss  when  the  A/D  is  turned  off.  This  is  a  nessesary 
step  since  the  6112  diode  clamps  its  input  pins  when  it  has  no 
power.  The  6112  is  clocked  by  BADCLK,  a  signal  which  comes  from 
the  MAIN  system  and  is  the  Burst  CPU  clock  out  divided  by  two. 

BURST  AUTO-GAIN  CIRCUIT.  The  analog  signal  to  digitize 
comes  into  the  board  both  in  low  and  high  gain  forms,  just  as  in 
the  MAIN  system.  In  the  BURST  system,  however,  a  third  line 
called  the  "GAIN  DECISION"  is  provided.  This  is  a  digital  signal 
which  indicates  whether  high  gain  is  in  range  of  the  A/D  or  not. 

This  gain  decision  is  latched  by  the  flip-flop  U17B  when 
clocked  by  the  timing  circuit  (described  later) .  The  output  of 
this  latch  determines  which  of  the  two  input  signals  to  choose 
for  digitization  by  controlling  the  multiplexor  U33. 

The  output  of  this  high/low  gain  multiplexor  is  connected  to 
a  fast  (5  microsecond)  sample  and  hold,  the  Precision  Monolithics 
SMP-11 .  The  sample/hold  timing  is  provided  once  again  by  the 
timing  circuit  described  later.  The  value  of  the  "hold" 
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capacitor,  5000  pF,  was  chosen  for  the  fact  that  the  SMP11  is 
internally  trimmed  for  that  value.  Hence,  no  offsets  will  result 
in  the  output  signal. 

To  indicate  which  gain  state  was  used,  the  gain  bit  is 
jammed  onto  the  processor  buss  when  the  high  order  bits  of  the 
6112  are  read.  This  is  accomplished  with  U43B  which  is  high  when 
the  A/D  high  byte  is  read.  This  gates  the  gain  bit,  driven  by 
U39A,  onto  the  processor  buss  by  multiplexor  U66,  replacing  the 
4th  most  significant  bit  if  the  byte.  This  results  in  a  12-bit 
sample  plus  gain  packed  neatly  in  13  contiguous  bits. 

Finally,  the  timing  for  all  of  this  is  accomplished  using  a 
single  4015  (shift  register  U38) ,  configured  as  a  unary  counter. 
Reset  by  the  reading  of  the  A/D  low  byte,  it  is  incremented  with 
every  A/D  clock  cycle.  On  the  6th  thru  14th  clocks,  the  CPU  is 
stopped  by  the  nand  gate  U2D.  This  keeps  digital  noise  from  the 
A/D  converter  while  converting.  On  the  10th  clock,  this  timer 
strobes  the  new  gain  decision  into  U17B  (see  above)  and  the  old 
gain  decision  into  U17A.  Gain  bits  require  this  double  buffering 
in  order  to  track  the  pipeline  correctly.  On  the  14th  clock  (A/D 
is  done) ,  the  sample  and  hold  is  instructed  to  sample  again. 

A/D  POWER  DOWN.  The  BURST  analog  to  digital  conversion 
circuitry  described  above  involves  a  number  of  high  power 
devices,  specifically,  the  6112  A/D,  the  4602  quad  opamp,  the 
SMP11  sample  and  hold,  and  the  REF02  reference.  Since  during  the 
long  playback  periods  these  parts  will  not  be  needed,  the  power 
to  these  devices  has  been  routed  through  a  pair  of  relays  K7  and 
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K8 .  Relay  K7  handles  the  +/-  5  Volts  to  the  6112  and  the  4050 
isolation  buffer.  Relay  K8  switches  OFF  the  +/-  12  Volts  to  the 
circuit. 

THE  MEMORY  UNIT.  The  memory  circuit  for  the  BURST  system  is 
a  rather  autonomous  unit  which  functions  more  like  a  digital  tape 
recorder  than  a  typical  memory.  Complete  with  its  own  memory 
address  register  (MAR)  and  bank  wrap-around  logic,  this  memory 
unit  features  total-dose  radiation  tolerance,  protection  against 
cosmic  ray  induced  power  surges,  individual  bank  power-down,  and 
a  special  "autowrite"  mode  which  effectively  doubles  the  memory 
transfer  rate. 

The  unit  acts  like  a  tape  recorder  for  two  reasons.  First, 
whenever  reading  or  writing,  the  memory  unit  uses  its  own  memory 
address  register  (U3,  U6,  U9 ,  Ull  and  U13)  rather  than  one 
supplied  by  the  processor  address  buss.  This  allows  the  central 
processor  to  spend  its  time  sampling  rather  than  incrementing  an 
address  which  is  larger  than  the  processor  is  designed  for.  The 
MAR  keeps  track  of  the  address  for  the  cpu  and  increments  itself 
whenever  either  a  read  or  a  write  to  the  memory  is  done. 

Second,  when  the  MAR  reaches  a  specified  end  address,  the 
next  read  or  write  causes  the  start  address  to  be  jammed  into  the 
MAR.  This  is  accomplished  by  the  upper  address  comparison  (U7 
and  U8A)  combined  with  the  detection  of  an  all  l's  condition  in 
the  rest  of  the  address  (U8B,  U15D  and  U2C)  .  Thus,  the  "tape" 
automatically  rewinds  to  the  beginning  and  starts  recording 
again. 
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Setting  a  particular  address  into  the  MAR  is  achieved  by 
writing  directly  to  the  lower  12  address  bits  (the  counters  are 
on  the  processor  buss  as  output  ports) .  The  upper  six  bits  have 
to  be  written  to  the  start  address  latch  (Ul)  and  then  strobed 
into  the  counters  U3  and  U6  by  toggling  bit  6  (2nd  MSB)  of  the 
start  address  port  while  doing  one  memory  access.  Note:  the 
40163  counters  accept  input  data  only  when  clocked  while  their 
load  pins  are  down. 

The  decoder  U16  is  used  to  select  which  of  the  six  memory 
banks  the  MAR  is  addressing.  It  is  delected  whenever  the  MAR  is 
written  into  by  virtue  of  a  high  level  on  pin  5  (2nd  MSB  of  the 
start  address  port) .  This  keeps  accesses  to  the  MAR  from  writing 
anything  into  the  memory  banks. 

One  peculiar  feature  of  the  memory  unit  is  referred  to  as 
its  "autowrite"  mode.  Initiated  by  a  high  level  on  the  MSB  of 
the  start  address  port,  this  mode  causes  the  memory  unit  to 
perform  a  WRITE  operation  when  the  processor  buss  says  to  READ. 
This  seemingly  useless  configuration  actually  has  a  tremendous 
advantage  in  high  speed  data  recording  of  data  from  another  buss 
device  like  an  a/d  converter.  The  important  thing  to  notice  is 
that  the  selection  of  the  memory  unit  can  be  overlapped  with  any 
other  device  on  the  processor  buss.  In  the  autowrite  mode,  if 
one  addresses  both  the  memory  and  another  device  and  one  reads 
from  the  device,  the  memory  unit  will  catch  whatever  is  read  from 
that  device!  With  an  extremely  fast  a/d,  this  can  effectively 
double  the  memory  transfer  capability  of  the  system. 
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The  swapping  of  the  read  and  write  lines  is  accomplished 
using  a  multiplexor  and  4049  drivers  (U14,  U15A,  U15B) .  Note 
that  it  is  not  a  complete  swap  since  writing  to  the  memory  in  the 
autowrite  mode  still  works  -  the  memory  won't  try  to  read. 

The  memory  banks  are  protected  from  SCR  latchups  (caused  by 
cosmic  radiation)  by  a  current  foldback  circuit  on  their  +5V 
power.  Consisting  of  Q10,  Qll,  and  some  discrete  components, 
this  circuit  removes  power  from  the  entire  bank  of  memory  as  soon 
as  the  SCR  power  surge  is  detected  and  long  before  the  RAM  device 
burns  out.  Measurements  of  this  response  show  it  to  go  into 
current  limiting  when  the  load  exceeds  800  mW  (20  Ohms  at  4 
Volts) .  Radiation  tests  with  the  RAM  devices  show  them  to  take  4 
times  this  amount  of  power  in  the  latched  condition.  The  entire 
memory  bank  requires  only  one  tenth  this  amount  of  power  when 
operating  normally  (pre-radiation) . 

A  total  dose  radiation  effect  which  is  expected  to  occur 
with  the  type  of  memories  used  is  a  growth  in  power  consumption. 
Radiation  tests  performed  on  these  devices  have  shown  a  factor  of 
100  growth  in  power  consumption  before  the  devices  actually  fail 
to  work.  As  a  counter  measure,  the  banks  can  be  individually 
turned  OFF  in  case  one  or  all  become  excessively  power  hungry. 
If  all  banks  are  extremely  hungry,  the  decision  might  be  to  turn 
all  of  them  OFF  and  use  the  processor's  IK  memory. 

Bank  power  is  controlled  by  relays  K1  thru  K6  in  a  Set/Reset 
scheme  using  K9.  This  is  similar  to  the  arrangement  on  the 
analog  board.  Basically,  to  power  OFF  a  bank,  e.g.  bank  1,  one 


must  apply  current  though  the  right  coil  or  relay  Kl.  To  do 
this,  a  digital  value  is  applied  to  the  base  resistor  R1  which 
turns  on  Ql.  This  runs  +5  to  -7  Volts  through  the  Kl  reset  coil. 
Similarly,  to  turn  ON  a  bank,  one  simply  flips  Relay  K9  before 
powering  relay  Kl.  The  current  then  flows  through  the  set  coil 
instead  of  the  reset  coil. 

BURST  SAMPLE/HOLD/CONVERT  PIPELINE.  Unlike  the  MAIN  computer 
system  which  is  constrained  to  sample  data  only  as  fast  as  it  can 
telemeter  it,  the  BURST  computer  is  designed  for  high  speed  data 
collection  and  playback.  The  BURST  analog  to  digital  conversion 
circuitry  meets  the  high  speed  requirement  by  having  its  own 
multiplexor,  a/d  converter,  AND  a  fast  sample  and  hold  (the  SMP 
11)  . 


While  the  circuit  design  is  capable  of  sampling  rates  in 
excess  of  150  Khz,  both  the  substitution  of  radiation  tolerant 
devices  and  the  slowing  of  the  converter  clock  pulses  has 
resulted  in  the  current  60  KHz  conversion  frequency  maximum.  For 
example,  the  specifications  for  the  AMD6112  converter  say  it 
should  be  capable  of  converting  in  3  microseconds  but  the 
manufacturer  will  deliver  only  parts  spec'd  at  8  microseconds. 
The  closest  clock  frequency  which  we  have  available  is  1.25  MHz 
and  this  results  in  a  convert  time  of  10.0  microseconds. 

The  procedure  for  sampling  a  qty  in  general  is  1) address  the 
quantity  on  the  multiplexor,  2)  set  the  sample-hold  to  SAMPLE  for 
the  required  time,  3)  set  the  sample-hold  to  HOLD,  4)  start  the 


161 


a/d  converter  and  wait  until  the  it's  ready,  5)  read  out  the 
converted  data,  and  6)  store  the  result. 

In  the  BURST  processor,  it  takes  a  single  instruction  per 
sample  to  accomplish  this  series  of  events.  In  pipeline  fashion, 
a  new  value  can  be  addressed  on  the  multiplexor  and  have  its  gain 
decision  prepared  while  the  prior  value  is  being  converted.  To  do 
this,  the  BURST  software  configures  the  a/d  to  start  a  new 
conversion  as  soon  as  the  last  converted  value  is  read  out  (see 
the  specifications  on  the  AMD6112).  BURST  software  also 
configures  the  MEMORY  circuit  to  AUTOWRITE,  which  means  it  can 
take  data  directly  off  the  buss  when  the  a/d  converter  gives  it 
to  the  cpu. 

The  process  of  converting  a  value  is  shown  in  figure  AD-1. 
Any  read  of  the  a/d  converter  causes  four  things  to  happen. 
First,  the  sample/hold  is  placed  in  the  HOLD  condition.  At  the 
same  time,  the  a/d  converter  puts  its  last  result  on  the  buss  for 
the  cpu  and  begins  converting  the  quantity  which  the  sample/hold 
is  now  holding.  Lastly,  the  multiplexor  register  will  take  a  new 
value  described  by  some  of  the  address  bits  used  to  read  the  a/d 
converter . 

At  the  end  of  the  12.5th  cycle  after  the  a/d  read,  the 
conversion  will  complete.  At  the  14th  cycle,  an  automatic  timer 
will  force  the  sample/hold  back  into  the  SAMPLE  mode  where  it 
will  track  the  value  (we  just  set)  on  the  multiplexor.  This 
returns  the  circuit  to  its  original  state,  ready  to  convert 
another  quantity. 
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The  net  effect  of  the  timing  circuit  is  that  the  gain 
decision  is  latched  after  8  microseconds  from  the  start  and  the 
sample-hold  is  released  to  track  the  new  value  after  11.2 
microseconds.  If  the  sampling  loop  is  16.0  usee,  then  the  hold 
time  is  4.8  usee. 

It  is  important  to  note  that  it  actually  takes  three  READS 
of  the  a/d  converter  to  get  the  converted  value  into  memory. 
After  the  first  read,  the  sample/hold  will  acquire  it.  The 
second  read  will  cause  it  to  be  converted  but  it  will  only  be 
inside  the  converter.  The  third  READ  actually  obtains  the  value 
and  stores  it. 
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Figure  21 .  Burst  A/D  Pipeline  Operation 
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SUMMARY  OF  BURST  COMPUTER  I/O.  Described  below  are  the  input  and 
output  ports  available  to  the  Burst  computer  system: 


Analog  to  Digital  Converter  Control  (STA  3001H) 


! . MMB! 

I _ I 

!!' -  1  =  2’S  COMPLEMENT  OUTPUT,  0  =  OFFSET  BINARY 

i ' -  MODE  =  00  :  WRITE  STARTS  CONVERIONS 

- -  01:  READ  STARTS  CONVERSIONS 

10  :  READ  STARTS  CONVERSIONS 

11  :  WRITE  STARTS  CONVERSIONS 


Analog  to  Digital  Converter  Read  (LHLD  30xxH) 


ILLLLLLLL!  :  3000H  -  LOW  BYTE  OF  CONVERSION 

+— —————— — 4- 

I...GHHHH!  :  3001H  -  HIGH  4  BITS  PLUS  GAIN  BIT 

i _ _ _ i 


Multiplexor  Control  (LHLD  30xxH) 


•  • 

I AAAAAAA. ! 

i _ _ _ i 

!!!!!!' - A  is  the  7-bit  BURST  multiplexor  address 

' - described  by  Table  1-2 


High  Memory  Address  Register  (OUT  70H) 


•  • 

!  ALMMMMMM! 

i _ i 

!!!!!!!" -  Upper  Memory  Address  bit  A12 

! ! ' -  Upper  Memory  Address  bit  A17 

!' -  Load  upper  MAR  (l=load) 

' -  Autowrite  control  (l=autowrite) 


Low  Memory  Address  Registers 


•  # 

ILLLLLLLL! 

+ - + 

! . . . . HHHH ! 


OCFFFH 

0D000H 


164 


Relay  Control  Bits  (OUT  20H) 


! AABBBBBB! 


Bank  0  Relay 
Bank  1  Relay 
Bank  2  Relay 
Bank  3  Relay 
Bank  4  Relay 
Bank  5  Relay 
A/D  +5V  Relay 
A/D  +12V  Relay 


General  Control  Bits  (OUT  63H) 


•  • 

!  . .R. . EEE ! 

i  _ _ » 

!  !  r -  End  Memory  address  (A15) 

!  1' -  End  Memory  address  (A16) 

!  ' -  End  Memory  address  (A17) 

‘ -  Set/Reset  Relay  Control  for  above  relays 
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3 . 6  The  Memory  Boards 

The  Burst  memory  itself  (not  the  control  circuitry)  is 
located  on  two  memory  cards,  each  of  which  contains  3  banks  of  32 
KBytes  each.  Originally  there  had  been  4  banks  on  each  board, 
but  we  couldn't  fit  in  that  many  chips.  Hence,  the  total  memory 
capacity  of  the  Burst  memory  is  6  X  32  K  or  192  KBytes. 

As  was  mentioned  earlier  is  the  Burst  CPU  description,  each 
memory  bank  can  be  individually  powered.  Both  transient  and 
total-dose  radiation  effects  are  expected  to  be  encountered, 
particularly  in  view  of  the  fact  that  the  memory  chips  used  are 
not  "radiation  tolerant"  in  the  full  definition  of  the  term. 
While  several  rad-hard  memories  exist,  they  are  either 
outrageously  expensive  or  did  not  have  sufficient  density  to  be 
useful.  These  memories,  made  by  Integrated  Device  Technologies, 
have  survived  more  than  10000  rads  which  is  the  expected  "box- 
level"  total  dose  for  the  instrument.  Assuming  the  shielding 
which  the  box  provides,  we  shouldn't  have  too  much  radiation 
problems  with  them. 

Nevertheless,  each  bank  of  memory  is  separated  by  a  buss 
tranceiver  and  can  be  turned  off  completely  by  the  Burst  computer 
system.  The  trick  to  doing  this  is  in  isolating  the  memory 
address  and  control  signals  from  the  chips  while  powered  down. 
(One  must  do  this  with  most  CMOS  since  the  chips  will  take  power 
from  their  input  pins  if  their  input  pins  have  higher  voltage 
than  their  power  pins.) 

Each  memory  bank's  address  and  control  lines  are  buffered  through 
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CD4049  and  CD4050  packages  which  are  powered  by  the  bank's  power. 
When  the  bank  power  goes  down,  the  4049  and  4050  devices  cannot 
drive  the  private  bank  buss.  Unlike  most  CMOS  devices,  CD4049 
and  4050  packages  are  made  to  accept  input  signals  higher  than 
their  power  pins. 

Within  a  memory  bank,  one  of  the  16  memory  chips  is  selected  by  a 
pair  of  3-to-8  line  decoders  (SA2995) .  These  are  only  enabled  if 
the  Bank  Enable  line  is  low  (this  signal  comes  from  the  Burst  CPU 
board) . 

Six  jumpers  on  each  memory  board  allow  for  the  address  definition 
of  the  banks  on  that  board.  For  example,  the  first  bank  may  be 
configured  as  either  bank  0  or  3,  the  second  bank  as  either  1  or 
4,  and  the  third  bank  as  either  2  or  5.  For  each  bank,  one  must 
make  two  jumpers:  1)  for  power  and  2)  for  the  digital  bank 
enable  line.  The  standard  way  to  configure  the  two  boards  is 
Banks  0,  1  and  2  together,  and  banks  3,  4  and  5  together. 


3 . 7  The  Power  Converter 

High  level  commands  are  pulsed  commands  which  have  28  Volts 
on  them  (and  considerable  power  capability) .  These  are  used  in 
the  instrument  for  switching  on  and  off  the  power  converter 
relays.  Four  commands  (1  wire  each)  are  used  to  control  the  MAIN 
and  BACKUP  power  converters.  The  converters  can  both  be  on  at 
the  same  time  without  damage  to  the  converter. 

1.  MAIN  CONVERTER  POWER  ON  (CONNECTOR  J8  PIN  18) 

2.  MAIN  CONVERTER  POWER  OFF  (CONNECTOR  J8  PIN  17) 

3.  BACKUP  CONVERTER  POWER  ON  (CONNECTOR  J8  PIN  5) 

4.  BACKUP  CONVERTER  POWER  OFF  (CONNECTOR  J8  PIN  6) 

The  immediate  effect  of  these  four  commands  are  as  follows: 

1.  POWER  ON/OFF  -LP  (CONNECTOR  J8  PIN  4)  IS  SET  TO  BILEVEL  1 

2.  POWER  ON/OFF  -LP  (CONNECTOR  J8  PIN  4)  IS  SET  TO  BILEVEL  0 

3.  POWER  ON/OFF  -MAG  (CONNECTOR  J8  PIN  10)  IS  SET  TO  BILEVEL  1 

4.  POWER  ON/OFF  -MAG  (CONNECTOR  J8  PIN  10)  IS  SET  TO  BILEVEL  0 
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3 . 8  Inter-Processor  Communications 

The  two  computer  systems  communicate  over  two  wires  labelled 
BCMD  and  BRDY .  BCMD  is  controlled  by  the  MAIN  processor  and  BRDY 
is  controlled  by  the  BURST.  Both  commands  and  data  are 
transferred  between  the  systems  in  16-bit  serial  strings  using 
BCMD  and  BRDY. 

The  protocol  employed  to  send  data  from  the  MAIN  to  the 
BURST  is  the  same  as  that  used  to  send  data  the  other  way,  so  one 
need  only  describe  one  transmission  to  describe  both.  Initially 
both  the  BCMD  and  BRDY  lines  are  low.  From  the  MAIN  cpu  point  of 
view,  these  names  mean  "BURST  COMMAND"  and  "BURST  READY".  To  send 
data  from  the  MAIN  processor  to  the  BURST,  the  MAIN  cpu  sets  BCMD 
to  1  which  requests  the  BURST'S  attention.  When  the  BURST  is 
ready  to  accept  the  data,  it  sets  BRDY  to  1.  The  falling  edge  of 
BCMD  is  used  as  the  starting  time  after  which  the  MAIN  cpu 
presents  data  bits  on  the  BCMD  line  every  45  cycles.  The  BURST 
samples  the  BCMD  line  every  45  cycles  and  stores  the  bits  in  its 
software  shift  register.  Finally,  the  MAIN  processor  restores 
the  BCMD  line  low  as  does  the  BURST  processor  its  status  line 
BRDY. 

These  transmissions  have  a  maximum  operating  frequency  of 
approximately  56  Kbps  with  both  cpu's  using  5.0  MHz  crystals. 
(Each  transmission  takes  around  290  microseconds.) 

Contention  between  the  two  processors  for  use  of  these  lines  is 
possible  since  both  processors  may  want  to  send  information  to 
the  other  at  the  same  time.  For  example,  the  BURST  may  be  playing 
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data  back  to  the  MAIN  processor  at  the  same  time  as  the  MAIN  gets 
a  command  from  the  ground  with  the  BURST  cpu  as  the  destination. 
The  situation  in  which  both  cpu's  raise  their  request  lines  at 
the  same  time  is  handled  by  the  BURST  relenting  and  receiving 
data  instead  of  sending  it.  (The  BURST  will  immediately  try 
again  to  send  its  data  at  the  conclusion  of  the  MAIN-to-BURST 
transmission  unless  explicitly  stopped  by  command.) 

Commands  are  distinguished  from  data  only  by  context;  i.e. 
after  RESET  to  the  Burst  processor  it  enters  the  command  state 
which  expects  to  get  command  data.  If  the  command  has  data 
following  it,  then  the  Burst  will  interpret  the  next 
transmissions  as  data.  When  the  da+"a  portion  is  finished,  it 
will  again  interpret  incoming  data  as  commands.  This  context 
sensitive  protocol  has  one  minor  problem,  namely  that  all 
command-data  sequences  from  the  MAIN  cpu  to  the  BURST  must  supply 
all  of  the  data  required.  If  the  MAIN  tries  to  stop  the  last 
command  and  start  a  new  one  before  all  of  the  data  is  sent,  the 
BURST  will  confuse  the  new  commands  as  if  they  were  data.  To 
stop  a  command-data  sequence  one  must  RESET  the  BURST  processor. 
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Figure  22 .  BURST  to  MAIN  communication  timing 


MIN 

MAX 

A  : 

BURST  RECOGNIZES  MAIN  READY 

4  5  eye 

69 

B  : 

BURST  FIRST  BIT  TRANSITION 

31 

31 

C  : 

TRANSITION  TO  TRANSITION 

45 

45 

D  : 

MAIN  BIT  SAMPLE  FROM  START 

32 

60 
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Table  11 .  Main  Multiplexor  Quantities 


ADDR 

Ox 

LOW  GAIN 

lx 

HI  GAIN 

2x 

3X 

4x 

xO 

B2 

BZ 

MTR1 

V12X50 

V34X50 

xl 

BY 

BY 

MTR2 

V12X50 

V34X50 

x2 

BX 

BX 

LEN1 

V12X50 

V34X50 

x3 

V3 

V3 

LEN2 

V12X50 

V34X50 

x4 

V2/RI2 

V2/RI2 

TMP1 

V12X50 

V34X50 

x5 

Vl/SC 

Vl/SC 

TMP2 

V12X50 

V34X50 

X6 

VI 

VI 

TMP3 

V12X50 

V34X50 

x7 

AGC 

AGC** 

TMP4 

V12X50 

V34X50 

x8 

V12/RI1 

V12/RI1 

MTR1 

V12X50 

V34X50 

x9 

F3 

F3 

MTR2 

V12X50 

V34X50 

xA 

F2 

F2 

LEN1 

V12X50 

V34X50 

xB 

FI 

FI 

LEN2 

V12X50 

V34X50 

xC 

V4 

V4 

TMP1 

V12X50 

V34X50 

xD 

AGC* 

AGC* 

TMP2 

V12X50 

V34X50 

xE 

V12/RI1* 

V12/RI1 * 

TMP3 

V12X50 

V34X50 

xF 

V34 

V34 

TMP4 

V12X50 

V?  4X50 

*  :  UNFILTERED  QUANTITIES 
**:  NON-SENSE  QUANTITY 


Table  12. 

Burst  Multiplexor  Quantities 

ADDR 

BQTY 

XO 

BZFAST 

Xl 

BXFAST 

x2 

BYFAST 

x3 

V3 

x4 

V4 

x5 

V34 

x6 

V34  AC 

x7 

Vl/SC 

x8 

V12  AC 

x9 

V2/RI2 

XA 

VI 

xB 

V12 

xC 

DIRECT 

xD 

AGC* 

xE 

GUARD  1 

xF 

STUB  1 

*  :  UNFILTERED  QUANTITIES 


x  :  0  —  AUTOMATIC  GAIN 

1  —  FORCED  HIGH  GAIN 

2  --  FORCED  LOW  GAIN 
3,4,7  --  UNDEFINED 


5  --  GROUND 

6  —  BURST  MEM+5V  MONITOR 
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Table  13.  Analoa  to  Digital  Conversion  Times 


MAIN 

BURST 

UNITS 

A/D  CLOCK  FREQUENCY  : 

1.25 

1.25 

MHz 

A/D  CONVERT  TIME  : 

(12.5  clock  cycles) 

10.0 

10.0 

microsec 

SAMPLE  TIME  REQD  : 

(10V  step  to  .02%) 

(10V  step  to  .10%) 

153(1) 

4.8 

3.5 

microsec 

MINIMUM  A/D  TIME  : 

163.0 

15.0 

microsec 

ACTUAL  A/D  TIME  : 

165 

16.0 

microsec 

(1)  The  impedance  of  a  Harris  508A  (1.8K  Ohms  max)  and  a  .01 
microfarad  capacitor  have  an  RC  of  18  microseconds.  Twelve  bit 
accuracy  translates  into  8.5  RC  periods  or  153  microseconds. 
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4 .  Contributing  Engineers  and  Scientists 

The  CRRES  Langmuir  Probe  and  Fluxgate  Magnetometer  required 
the  efforts  of  a  number  of  engineers  and  scientists  at  the 
University  of  California,  Regis  College  in  Massachusetts,  the  Air 
Force  Geophysics  Lab  in  Massachusetts  and  Analytyx  Corporation  in 
New  Hampshire.  The  following  is  a  list  of  those  people  and  their 
functions : 


Name 

Org 

Functions 

Peter  R  Harvey 

UCB 

Project  Management  at  UCB 

Flight  Hardware  and  Software 

GSE  Hardware  and  Software 

Dr.  John  Wygant 

UCB 

Project  Scientist  at  UCB 

Flight  Sphere  Design 

Analog  Section  Design 

Dr.  Forrest  Mozer 

UCB 

Co-Investigator  for  701-14A 

Dr.  David  Pankow 

UCB 

Boom  Deployment  Systems  Engineering 

Dr.  Roy  Torbert 

UCSD 

Flight  Filtering  section 

Peter  Anderson 

Regis 

Parts  Engineering 

Test  Management 

Bill  Sullivan 

AFGL 

Project  Management  at  AFGL 

Dr.  Howard  Singer 

AFGL 

Scientist  for  Fluxgate  Magnetometer 

Dr.  Michael  Smiddy 

AFGL 

Scientist  for  Langmuir  Probe 

UCB  Contract  Monitor 

Dr.  Nelson  Maynard 

AFGL 

Principle  Investigator  for  701-14A 

Ken  Fredholm 

Analytyx 

Project  Management  at  Analytyx 
Systems  Engineering 

Bob  Hayes 

Analytyx 

Power  Supply  Engineering 

Paul  Murray 

Analytyx 

Main  Box  Mechanical  Engineering 
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Appendix  A. 

CRRES  FLIGHT  SOFTWARE 

RELEASE  2.1,  12-6-88 

MAIN  SOFTWARE  :  12-6-88 
BURST  SOFTWARE  :  2-1-85 

PETER  R.  HARVEY 
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0000 

0001  * 

0000 

0002  1  CRRES  FLIGHT  PROGRAM— CONFIGURATION 

0000 

0003  1  WRITTEN  8Y  PETER  R  HARVEY 

0000 

0004  t  FILE  CONFIG. A 

0000 

0005  t 

0000 

0004  t  8085  SPECIFIC  INFORMATION 

0000 

0007  t 

0000 

0008  PSN  ECU 

4 

0000 

0009  SP  EQU 

4 

0000 

0010  1 

0000 

0011  t  ROM  CONFIGURATION  OF  PACKAGES 

0000 

0012  t 

0000 

0013  ORG 

4  OH 

0040 

0014  CHDTA8  DS 

40H 

0080 

0015  NEXT  DS 

OCDOH 

0D50 

0014  HAG  DS 

148H 

0E?8 

0017  PLA  DS 

170H 

1008 

0018  BUR  DS 

IEOH 

1IE8 

0019  FIT  DS 

148H 

1330 

0020  SAN  DS 

90H 

I3C0 

0021  ELE  DS 

2C0H 

1480 

0022  LD  DS 

44H 

14C4 

0023  DEP  DS 

120H 

17E4 

0024  SWP  DS 

380H 

1844 

0025  EXEC  DS 

17CH 

1CE0 

0024  BKG  DS 

320H 

2000 

0027  1 

2000 

0028  1  RAM  CONFIGURATION 

2000 

0029  » 

2000 

0030  RAM  EDU 

2000H 

2000 

0031  RAMSIZE  EQU 

1000H 

2000 

0032  » 

2000 

0033  ORG 

RAM 

2000 

0034  I ORAM  DS 

1CH 

ZOIC 

0035  BKSRAH  DS 

28H 

2044 

0034  DEPRAH  DS 

OCH 

2050 

0037  ELERAH  DS 

0A8H 

20F8 

0038  1 

20F8 

0039  0R6 

1/254+11254 

2100 

0040  MAGRAM  DS 

50H  MUST  BE  ALIGNED  ON 

2150 

0041  PLARAM  DS 

20H 

2170 

0042  BURRAM  DS 

30H 

2IA0 

0043  SANRAM  DS 

I  OH 

2IB0 

0044  FITRAH  DS 

170H 

2320 

0045  SPINRAH  DS 

170H 

2490 

0044  HATRAH  DS 

10H 

24A0 

0047  EXERAH  DS 

20H 

24C0 

0048  SNPRAM  DS 

440H 

2920 

0049  LDRAM  EQU 

1 
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PA6E  02 


2920 

0050  STACK 

EQU 

RAN+RANSIZE-1 

2920 

0051  1 

2920 

0052 

CON 

CNDTAB 

2920 

0053 

CON 

NEXT 

2920 

0054 

CON 

BKG 

2920 

0055 

CON 

ELE 

2920 

0056 

CON 

NAG 

2920 

0057 

CON 

PLA 

2920 

0058 

CON 

DEP 

2920 

0059 

CON 

LO 

2920 

0060 

CON 

EXEC 

2920 

0061 

CON 

BUR 

2920 

0062 

CON 

SAW 

2920 

0063 

CON 

SWP 

2920 

0064 

CON 

FIT 

2920 

0065  1 

2920 

0066 

CON 

I  ORAN 

2920 

0067 

CON 

BKGRAN 

2920 

0068 

CON 

ELERAN 

2920 

0069 

CON 

NASRAN 

2920 

0070 

CON 

PLARAN 

2920 

0071 

CON 

OEPRAN 

2920 

0072 

CON 

BURRAN 

2920 

0073 

CON 

SAWRAN 

2920 

0074 

CON 

SWPRAN 

2920 

0075 

CON 

FI  TRAN 

2920 

0076 

CON 

SPINRAN 

2920 

0077 

CON 

NATRAN 

2920 

0078 

CON 

LDRAN 

2920 

0079 

CON 

EXERAH 
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0000 

0001  t 

0000 

0002  1  CRRES  FLIGHT  SOFTWARE  —  UTILITIES 

0000 

0003  1  WRITTEN  BY  PETER  R  HARVEY 

0000 

0004  1 

0000 

0005 

0R6 

118 

0008  36  00 

0006  ZERO 

HVI 

N,  0 

000A  23 

0007 

INK 

H 

OOOB  OD 

0008 

DCR 

C 

OOOC  C2  08  00 

0009 

JN2 

ZERO 

OOOF 

0010  1 

OOOF 

0011 

0R6 

218-1 

OOOF  CB 

0012  CPI 

RZ 

« 

0010  1A 

0013  COPY 

LDAX 

D 

0011  77 

0014 

NOV 

N,  A 

0012  13 

0015 

INK 

D 

0013  23 

0016 

INK 

H 

0014  OD 

0017 

DCR 

C 

0015  C3  OF  00 

001B 

JHP 

CPI 

0018 

0019  1 

0018 

0020 

ORG 

318 

0018  85 

0021  REF 

ADD 

L 

0019  6F 

0022 

NOV 

L,A 

001A  DO 

0023 

RNC 

• 

001B  24 

0024 

INR 

H 

001C  B7 

0025 

ORA 

A 

001D  C9 

0026 

RET 

a 

001E 

0027  1 

001E 

0028  UTIL 

EQU 

NEXT 

001E 

0029 

0R6 

UTIL 

0080 

0030 

CON 

ZERO 

0080 

0031 

CON 

COPY 

0080 

0032 

CON 

REF 

0080 

0033 

CON 

UNARY 

0080 

0034 

CON 

NE616 

0080 

0035 

CON 

HARK 

0080 

0036  1 

0080 

0037  1  CONVERT  IHL1  INTO  2t!A-l 

0080 

0038  1 

0080  21  01  00 

0039  UNARY 

LXl 

H,1 

0083  E6  OF 

0040 

AN  I 

15 

0085  C8 

0041  UNA1 

RZ 

0086  29 

0042 

DAD 

H 

0087  3D 

0043 

DCR 

A 

0088  C3  85  00 

0044 

JHP 

UNA1 

0088 

0045  1 

008B 

0046  t  NE6ATE  [HU 

0088 

0047  1 

008B  7C 

0048  NE616 

NOV 

A,H 

008C  2F 

0049 

CHA 

178 


OCR  Sf  ACE  SCIENCES  .a? 
CRRES  FLIGHT  SOFTRA^  V2.1 


'.Z-6-8S 


0000  0001  » 


0  >00 

'•)"2  l  CpRES  FLI3W'  SOFTWARE.  INPUT  OO’f'jT  DRIVER  SECTION 

oooo 

'">■>:  t  written  by  feter  r  hof.E' 

oooo 

0091  I 

0000 

00o5  i  FILE  IQ. A 

0000 

0007  i  13  SY5TEM 

DESCRIPTION 

000? 

0009  » 

0000 

0007  SERIAL  ecu 

0F3H 

serial  control  output 

0000 

0010  SEFCU  EQU 

7 

SERIAL  CLOCK 

0000 

001!  AN A3 TE  ECO 

4 

analog  SHIP'  REGISTER  STFCSE 

0000 

)0l2  FILSTB  EQU 

8 

FILTER  Sir T -  T  REGISTER  STROBE 

•)0)0 

00 1:  MR  ECU 

16 

7522  WRITE  INVERTED" 

0000 

;0 1 1  OB  EQU 

*• 

Ji 

7528  A  '9  CON T POL 

0000 

GO  1 3  I NT  ECU 

123 

INTERRUPT  CHCUII 

0000 

0016  t 

0000 

0017  ACC  EQU 

5000H 

A'D  CONVERTER 

oooo 

001S  ADC7L  EQU 

A['C*1 

A/D  CONTROL 

'00 

0010  1 

l  (V/i 

0020  MJJ \  tO'J 

OtOH 

Mi*,  TfACF.'HO.D,  AND  POWER 

0000 

002 i  AI'QR  EQU 

07  FH 

?■'■} t  ADDRESS  BITS 

tlU'JU 

0012  Hi  SAIN  ECU 

I  OH 

H15H  6AiN  SELECT 

''•000 

002^  TRACI*'  E 00 

080H 

TRAC)  BIT 

O'x'O 

0024  PR'.’AL  ECU 

07VH 

PREFERRED  RESET  SLUE  FOR  ML" 

v!  00 

0025  hGCF  EQU 

7 

KELLEY  QUANTITIES  ON  7fi  MU' 

\  Oi.l'J 

0026  ASCI!  ECU 

13 

0000 

0027  V12H  EQU 

2EH 

*012  150*  QTY,  V34H  =  V 1 2H *  1 

'.coo 

0028  VI 2  EQU 

OEH 

VI 2  LON  SAIN  USED  IF  150  SAT. 

0000 

0029  VI2150  EQU 

3vH 

oooo 

0030  VJA  EQU 

OFH 

V34  LCH  USED  IF  <50  SAT. 

0000 

00!I  V34X50  ECU 

40H 

oooo 

0032  « 

oooo 

0033  COMMAND  ECU 

OAFFFH 

COMMAND  REGISTER  ''MEMORY  HmPRED) 

oooo 

0034  TELtM  EQU 

OAFFFH 

TELEMETRY  BUFFER  OUTPUT 

oooo 

0035  « 

oooo 

0036  MICROS  EQU 

9  OH 

BOOM  M I CRGSW ITCHES 

oooo 

00 3 7  MOTORS  EQU 

OCOH 

MOTOR  CONTROL 

oooo 

0033  kl''5C  ECU 

OBOH 

KELLEY  GAIN  CONTROL 

oooo 

002.4  MASLCAD  EQU 

040H 

MAG  LOAD  STATUS 

vCOO 

0040  BRUM  EQU 

2CH 

BURST  FROCESSOP  RESET  ./RUN 

oooo 

0041  AQf'ES  EQU 

10H 

WATCHDOG  RESET  i 1 -RESET) 

OmvO 

0042  > 

oooo 

0043  KL'IN  EQU 

OBOH 

KELLEY  GAIN  BITS 

oooo 

0044  KLYSH  EQU 

OFH 

oooo 

0045  SUNEIT  EQU 

BOH 

SUN  PULSE  FLOP  STATUS 

oooo 

0046  FLISHT  EQU 

I  OH 

F'R'OTQF LIGHT  IF  1 

oooo 

0047  1 

oooo 

0048  LEPAH  EQU 

OBOH 

LERA  SHIFT  REGISTER  OUTPUT 

oooo 

0049  LEPAL  EQU 

090H 
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6 
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50H 
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0« 
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5 
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4 
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EOU 

n 

L 
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\ 
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.£•;  » 

0000 
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CONVERSION  DONE  INTERSoFT' 

'•000 
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MOO 
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ARE 
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006  T 

EFT 

■c3  t 

003’ 

'•069  1  10  CONTROL 

ENTRY  FEINTS 

0039 

00 7  0  « 

0039 

0"71  !0 

ECU 

NETT 

3  7 

••072 

C-RS 

i'J 

O''?-* 

007  J 

LOU 

iOlNI T 

O'"'3  A 

ecu 

otiiiroK 

*''9« 

Ol'/O 

COM 

->:tmasi 

•  i»A 

'6 

COM 

CtlCM 

COTA 

‘\p 

COM 

TMO'JT 

0  0  P  A 

007? 
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SL-M5T6T 

Ov«A 
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COM 

bOOMSTAT 

O' 'J 
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00  9  h 

■>  o  • 

V',*  3  i 
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SAMPLE 

O'.  <0 

OOS2 

COM 

ASC 

00  T  A 

0037 

COM 

SETBIAS 

;C 

0094 

COM 

SET61WRBS 

00CA 

0085 

COM 

St* STUB 3 

•5v  ’A 

0085 

COM 

SETVTRiM 

Ov9k 

0"87 

COM 

SEIRELvi 

00 "  A 

0093 

COM 

5ETFILTEF 

00 9 A 

COM 

SEIM'JT 

00?  A 

.  0|)  | 

00*96 

O'.iS ! 
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SETKOTOR 

00  ?A 

0(92 

COM 

BETKL'f 
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y  03 
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SETPLA 
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009ft 
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SEND 
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00 9 A 

0100 

COM 

RBLRST 

009 A 

0101  t 

009  A 

0102  t 

INITIALIZE  THE  INPUT /OUTPUT  SO  THE  MODULE 

009A 

0103  1 

FUNCTIONS  CORRECTLY. 

009A 

0104  1 

009A  3E 

20 

0105  101N1T  MV1 

A,BRUN  CLEAR  MOTORS 

009C  32 

00  20 

0105 

STA 

NKBCOPY  KELLEY, RUN  BURST 

009F  CD 

85  03 

010' 

CALL 

RWATCH  RESET  THE  HATCHDOG 

00A2  3E 

40 

0108 

MV  I 

A, SDOEN  RESET  ECMD  LINE 

00 A 4  30 

0109 

DB 

51(1 

00 A 5  00 

0110 

NOP 

OOA6  00 

01  il 

NOP 

00A7  00 

0112 

NOP 

00A8 

0113  l 

00A8  F7 

0114 

SUB 

A  RESET  MOTOR  0 

OOA?  CD 

18  03 

0115 

CALL 

SETNOTOP 

ooa:  se 

01 

0115 

MV  I 

A, 1  AND  MOTOR  1 

OOAE  CD 

18  03 

oir 

CALL 

SETMOTOR 

008  i 

0118  t 

OOEl  3E 

3F 

0119 

MV  1 

A.3FH  RESET  THE  SERIAL  CTL 

0'7B3  D3 

C  ’ 

0120 

OUT 

SERIAL 

COBS  32 

14  20 

0121 

STA 

MU'* COPY  CLEAR  RESET  TO  KELLEY 

Out 8  3E 

01 

0122 

MV  1 

A,1  SET  A/D  FOR  2’S  COMPLEMENT 

OOBA  32 

0!  50 

0123 

STA 

ACCTL 

OOBD 

0124  l 

00 8 D  CD 

CA  02 

0125 

CALL 

FILCLEAP 

OOCO  9 ? 

0125 

SUB 

A  CLEAR  THE  RELAY  BITS 

00C1  32 

15  20 

0127 

STA 

RS 

OOC-J  32 

It  20 

0125 

STA 

RS*  1 

00C7  32 

17  20 

0129 

STA 

RS+2 

OOCA  C3 

08  02 

0130 

JMP 

PLYOPF 

00- 11 

0131  i 

00  CD 

0132  \ 

SYSTEM  INTERRUPT  STATUS  CALLS. 

OCCD 

0133  1 

OOCP  20 

0134  GE 

I  MAS!  DB 

RIM  READ  THE  INTERRUPT  MASI 

OOCE  / 

0135 

RET 

, 

OOCP  30 

0136  SETMhSK  DB 

SIM  SET  THE  INTERRUPT  MAS'' 

OODO  C? 

0137 

RET 

, 

00D1 

0138  i 

00D1 

0139  t 

COMMAND  INPUT. 

OC'Dl 

0140  t 

ON  EXIT: 

CHL  3=  COMMAND 

00D1 

0141  1 

OOD!  2A 

FF  Ac 

0142  CNDIN 

LHLD 

COMMAND  FICr  THE  COMMAND  REGISTER 

00 D 4  C9 

0143 

RET 

, 

00D5 

0144  1 

0005 

0145  » 

TELEMETRY  OUTPUT. 

0QD5 

0146  » 

ON 

ENTRY: 

EHl3=TELEHETRY  OUTPUT 

0005 

0147  1 

00D5  22 

FF  AF 

0148  THOJT 

SHLD 

TELEM  SET  THE  SHIFT  REGISTER 

00D8  C9 

0149 

RET 
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OOD?  0150  t 

0009  0151  I  SUN  AND  BOON  STATUS  CALLS 


JOB? 

0152 

« 

O0D9 

DB 

30 

0153 

SUNSThT  IN 

00  DB 

E6 

3«J 

0154 

ANI 

ODD 

n  > 

L  » 

n'' 

20 

0155 

Li  I 

00  EO 

BE 

0156 

CMP 

OOE 1 

7*7 

OIK' 

MOV 

ODE  2 

0158 

PET 

O' 'EC 

0159 

1 

00E3 

OB 

90 

0160 

BQjMSTAT  IN 

OoEr 

C9 

0161 

PET 

00E6 

0162 

« 

OOE 6 

0163 

l 

SAMPLE  THE 

OOE  6 

0144 

1 

ON 

ENTRY: 

00:6 

0165 

« 

ON 

EXIT  : 

OOE  6 

0166 

1 

OoCi 

6F 

014? 

iri 

AMPLE 

NOV 

OOE' 

3E 

CD 

0148 

MV  I 

Oi  E9 

30 

0149 

BE 

OOE  A 

0170 

t 

O  OE  A 

70 

■171 

MOV 

f  i;rt 

Ci 

?  0 

01'2 

OR; 

>  CEO 

L3 

£0 

o:?3 

OUT 

OOEF 

0174 

t 

OOEF 

7" 

Is 

01 '5 

NVi 

OOF  1 

3C 

0176 

SDL  A 

OCR 

0  if? 

C2 

'1 

00 

0177 

J  HI 

OOF  3 

'D 

0173 

MOV 

OOP  6 

03 

EC- 

0179 

OCT 

OOFS 

0180 

i 

OCR  5 

7C 

90 

Olfi 

MV  I 

OOF  A 

DC 

0182 

OUT 

00:  C 

3E 

ff 

0163 

MV! 

OOFE 

DC 

50 

0184 

OUT 

010" 

0185 

HLT 

0 !  o  1 

3E 

1'.' 

0166 

NVi 

0103 

DC- 

F  3 

0187 

OUT 

0105 

3E 

OS 

0188 

MV  1 

OlOT 

30 

0189 

DB 

010c 

0190 

i 

0105 

70 

-191 

MOV 

0109 

i  h 

00 

30 

0192 

LHLD 

010C 

FE 

07 

019' 

CPI 

CIO: 

CA 

1b 

01 

01  «4 

J7 

Oil! 

FE 

CD 

01?'. 

CPI 

0113 

C2 

2 

01 

0196 

JNZ 

01 1: 

0197 

i 

Olii 

7D 

0193 

G 

ETKLV 

HOC 

OUT 

E6 

FO 

0199 

ANI 

SUNB1T  THE  SUN  STATUS  IS 
80H  IN  THE  MSB 

H.SUNCGPV  JF  SANE  AS  WE'VE  SEEN 
N  THEN  JUST  RETURN  ZERO 

M.A  ELSE  record  new  STATUS 


MICROS  READ  THE  BOOM 
MICSQSWiTCHES. 

A/0  CONVERTER 

LA]=QTY  TO  ADDRESS  ON  PULTIPLEXOF: 

IHLMHE  12-BIT  VALUE 

L,A  SAVE  MU’  * 

A>.SE*DI875*DIS55  TURN  OFF  1NTS  (NOT  SYNCS' 
SIM 

A,L 

TRACK  START  SAMPLING 
NUT 

A, 153*5/2-21/14  DELAY  153  NICROSECS 
A  (14  CYCLE  LOOP) 

SOLA  <'21  OTHER  CYCLES) 

A, l  REMOVE  TRACK 

MU'- 

A, NWP+ iNT  REQUEST  INTERRUPT 
SERIAL 

A , Or FH  PUT  OUT  RESTART  7  ON  BUSS 
ADC/256  WRITE  10  STAR!  CONVERSION 

A,NWR 

SERIAL 

A,MSE  ENABLE  WORD  CLOCKS 
SIM 

A.L  GET  NU>  ADDRESS 

ADC  GET  THE  12  BUS 

AGCF  IF  KELLEY,  60  TO  IT 

GETtLY 

ASCU 

MASK 

A.L  MASK  IMS  LOW  BITS 

- i-r  L  »GN 
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0119  6F 

0200 

MOV 

L,A 

011A  08  80 

0201 

IN 

M.YIN 

011C  E6  OF 

0202 

AN! 

KLYGN 

01  IE  65 

0203 

ORA 

L 

OltF  6F 

0204 

MOV 

L,A 

0120 

0205  1 

0120  7C 

0206  MASK 

MOV 

A,H  MASK  UPPERS 

0121  Eo  OF 

0207 

AN! 

OFH 

0123  67 

0208 

NOV 

H,  A 

0124  3E  F9 

0209 

MV1 

A, TRACK+PRVAL  RETURN  TO  ZERO 

0126  D3  EO 

0210 

OUT 

MUX 

012S  FB 

0211 

El 

0129  C9 

0212 

RET 

. 

012A 

0213  1 

012A 

0214  1  AUTOMATIC  GAIN  CONTROL  L06IC 

012A 

0215  1  ON  ENTRY: 

A=LOH  BAIN  0TY  ADDRESS 

012A 

0216  1  ON  EXIT: 

COJ'PROPER  STY  TO  DIGITIZE 

012A 

0217  1 

ZERO  FLAG  SET  IF  LOW  GAIN,  NZ  FOR  HI 

012A 

0218  « 

012A  57 

0219  AGC 

MOV 

D, A  ASSUME  LON  GAIN 

0128  FE  07 

0220 

CPI 

AGCF  IF  EITHER  KELLEY  9TY,  TAKE  A 

0120  CA  5E  01 

0221 

JZ 

AGC2  DUMMY  SAMPLE. 

0130  FE  OD 

0222 

CPI 

A6CU 

0132  CA  5E  01 

0223 

JZ 

ASC2 

0135  FE  10 

0224 

CPI 

HlGAIN  IF  AUTOGAIN  0TY,  GO 

0137  CA  4C  01 

0225 

JC 

AUTO 

013A  FE  2E 

0226 

CPI 

V12H  IF  FORCED  LON  GAIN  AND  NOT  X50 

013C  OA  58  01 

0227 

JC 

FLG  THEN  GO 

013F  11  30  OE 

0228 

Hi 

0, V12I256+V12X50  ELSE  00  THE  X30 

0142  CA  48  01 

0229 

JZ 

X50G0 

0145  11  40  OF 

0230 

LXl 

»,  V34I256»V34I50 

0148  78 

0231  I50GO 

MOV 

A,E 

0149  C3  4F  01 

0232 

JHP 

A6C1 

014C 

0233  l 

014C  F6  10 

0234  AUTO 

OF! 

HIBAIN  SAMPLE  THE  HI  GAIN 

014E  5F 

0235 

MOV 

E,  A 

014F  CO  E6  00 

0234  AGCl 

CALL 

SAMPLE  CHL1=SAHFLE 

0152  7C 

0237 

MOV 

A, H  IF  SAMPLE=7H  THEN  IT’S 

0153  FE  07 

0238 

CPI 

7  VERY  HIGH  POSITIVE. 

0155  C8 

0239 

RZ 

SO  USE  LON  GAIN 

0156  FE  08 

0240 

CPI 

8  IF  SAHPLE=8n  THEN  IT’S 

0158  C8 

0241 

RZ 

VERY  NEGATIVE.  USE  LON 

0159  53 

0242 

MOV 

D, E  ELSE  HIGH  IS  OK 

015A  C9 

0243 

RET 

, 

0158 

0244  1 

0158  E6  EF 

0245  FL8 

AN] 

-  1-HI GAIN  ntMOVE  HlGAIN  FROM  BTY 

0150  57 

0246 

MOV 

0,  A 

015E  CO  E6  00 

0247  AGC2 

CALL 

SAMPLE  ANO  TAKE  OUMMY  SAMPLE 

0161  97 

0248 

sue 

A  ANO  RETURN (0)  FOR  LON  GAIN 

0142  C9 

0249 

RET 
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0163 

0250 

» 

0163 

0251 

»  BIAS 

,  STUB 

0163 

0252 

1  ON  1 

ENTRY: 

0163 

0253 

« 

0163 

0254 

» 

0163 

0255 

SPHAD 

EQU 

0163 

0256 

CYLAD 

ESU 

0163 

0257 

GRDAD 

ECU 

0163 

0258 

ST8AD 

ESU 

0163 

0259 

NILAC 

EQU 

0163 

0260 

RLYDBL 

EQU 

0163 

0261 

1 

0163 

IE 

05 

0262 

SETBIAS  MV I 

0165 

3E 

03 

0263 

MVI 

0167 

CD 

AF 

01 

0264 

CALL 

016A 

FE 

02 

0265 

CPI 

016C 

2E 

OE 

0266 

MVI 

016E 

DA 

37 

01 

0267 

JC 

0171 

2E 

07 

0268 

MVI 

0173 

Ci> 

87 

01 

0269 

JMP 

0P6 

0270 

1 

0176 

IE 

OB 

0271 

SETGUARD  MVI 

0178 

CD 

AD 

01 

0272 

CALL 

0178 

2E 

OB 

0273 

MVI 

01 7D 

C3 

87 

01 

0274 

JMP 

0180 

0275 

1 

0180 

IE 

09 

0276 

SETSTUB  MVI 

0182 

Cu 

AD 

01 

0277 

CALL 

0185 

2E 

OD 

0278 

MVI 

0187 

F5 

0279 

ANADAC 

PUSH 

0188 

CO 

3D 

02 

0280 

CALL 

018B 

E6 

FO 

0281 

ANI 

018D 

B5 

0282 

ORA 

018E 

6F 

0283 

MOV 

018F 

7C 

0284 

MOV 

0190 

EE 

7F 

0285 

XR1 

0192 

67 

0286 

MOV 

0193 

FI 

0287 

POP 

0194 

CD 

81 

02 

0288 

CALL 

0197 

2E 

14 

0289 

MVI 

0199 

OF 

0290 

STR08E 

RRC 

019A 

7D 

0291 

MOV 

0198 

D2 

AO 

01 

0292 

JNC 

019E 

F6 

20 

0293 

OR  I 

01A0 

F3 

0294 

ASI 

01 

01A1 

03 

F3 

0295 

OUT 

01A3 

E6 

EF 

0296 

LATCH 

ANI 

01A5 

D3 

F3 

0297 

OUT 

01A7 

F6 

10 

0298 

OR  I 

01A9 

D3 

F3 

0299 

OUT 

AND  GUARD  CONTROL  LOGIC. 

ILI-8-BIT  DfiC  VALUE 
tH3=B00H  NUMBER  1-4 

OEH  BIT  1  SELECT 

07H  8IT  4  SELECT 

OBH  81 T  2  SELECT 

ODH  BIT  3  SELECT 

OFH  ALL  OFF 

010H  RELAY  DISABLE 

E, SBIASI256/256  RECORD  IT 
A, 3  ONLY  4  8IASES  MAX 

RECORD  RECORD 
2  IF  SPHERE  800M,  USE 

L, SPHAD  THE  1ST  SELECT  BIT 
ANADAC  SHIFT  INTO  ANALOG  80ARD 
L,CYLAD  CYLINDERS  ARE  ANOTHER  8IT 
ANADAC 

E,SGUARD*256/256 

RECD1 

L, GRDAD  GUARDS  ARE  AT 
ANADAC  2ND  SELECT  BIT 

E , SSTUB*256/256 
RECD1 

L, STBAD  STUBS  ARE  3RD. 

PSN 

NLOFF  GET  SELECT  FOR  RELAYS  OFF 
OF  OH 

L  PUT  IN  SELECT  BIT 

L » A 

A,H  CONVERT  TO  0  TO  FF 

7FH  FROM  +/-  127 

H,  A 
PSN 

SHF  16  SHIFT  HL  TO  I/O  REGS 
L, NMR+ANASTB  STR08E  ANALOG  4094’ S 
SELECT  EITHER  A  OR  8  SIDE 
A,L 
ASi 

A8  (8  SIDE) 

DON'T  LET  SAMPLING  INTERRUPT 
SERIAL 

-NNR-1  REMOVE  WRITE  8AR 
SERIAL 

NNR  AND  REPLACE  IT 

SERIAL 
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01AB 

Fp 

0300 

El 

01AC 

C9 

030! 

RET 

, 

01  AD 

0302 

1 

01  AD 

3E 

01 

0303 

RECDl 

MV1 

A.  1 

MAS!  TO  0  OF  1 

01 AF 

oc 

L  J 

0304 

RECORD 

OCR 

H 

DECREMENT  THE  BOOM  TO  0-N 

01  BO 

A4 

0305 

ANA 

H 

MASH '.A!  BITS 

01B1 

F5 

0306 

PUSH 

PSH 

01B2 

83 

0307 

ADO 

E 

ADD  OFFSET  TO  E 

0163 

5F 

0308 

KOV 

E,A 

01B4 

16 

20 

0309 

HVi 

D.10STAT/256 

018: 

70 

0310 

MOV 

A.L 

STORE  THE  VALUE 

0167 

12 

03  i! 

STAX 

0 

0168 

FI 

0312 

POP 

FEW 

0189 

65 

0313 

MOV 

HjL 

PREPARE  TO  SHIFT 

016A 

C9 

0314 

RET 

01 DF 

0315 

$ 

01  BE 

031: 

I  RELA 

Y  CONTROL  LOGIC. 

0186 

0317 

t  ON 

ENTRY: 

A=RELAY 

NUMBER  0  TO  21 

01  BE 

0318 

1 

CRY= 1  TO  SET,  0  TO  RESET 

01 B6 

0319 

I 

0166 

F5 

0320 

5ETFELAY  POSH  PSW 

01  EC 

CO 

4E 

02 

0321 

CALL 

RECRLY 

RECORD  RELAY 

01BF 

FI 

0322 

POP 

PSW 

01  CO 

17 

0323 

RAL 

01C1 

FE 

04 

0324 

CPI 

212 

IF  KO  OR  M,  DIRECTIONAL 

01C3 

DA 

02 

02 

0325 

JC 

RLYON 

01C6 

FE 

OE 

0326 

CPI 

217 

IF  K2-K6,  NONLATCHING  TYPE 

01C8 

DA 

FO 

01 

0327 

JC 

NONLAT 

01CB 

FE 

2i 

0328 

CPI 

2118 

IF  K7-K17,  LATCHING 

01CD 

DA 

EF 

01 

0329 

JC 

LAT 

01  DO 

2E 

01 

0330 

HVI 

L,1 

IF  K1B,K1?  THEN  EXTERNAL (FI) 

0102 

FE 

2B 

0331 

CPi 

2120 

0104 

DA 

DO 

01 

0332 

JC 

EXT 

0107 

20 

0333 

OCR 

L 

ELSE  K20-K21,  THEN  EXTERNAL (KO) 

01DB 

0334 

t 

0108 

F5 

0335 

EXT 

PUSH 

PSW 

SAVE  THE  REAL  RELAYI 

0109 

IF 

0336 

RAF; 

SETRELAY (KL,ONOFP' 

01  DA 

70 

0337 

MOV 

A,L 

0106 

CO 

66 

01 

0338 

CALL 

SETPELAY 

01DE 

FI 

0339 

POP 

PSW 

010F 

0340 

t 

OlDF 

06 

20 

0341 

SOI 

16(2 

SETRELAY  <K-16, ON) 

01E1 

IF 

0342 

RAF 

. 

01t2 

37 

0343 

STC 

01E3 

F5 

0344 

PUSH 

PSW 

01E4 

CD 

EE 

01 

0345 

CALL 

SETRELAY 

01E7 

CO 

A7 

03 

0346 

CALL 

0LA5 

DELAV  EXTRA 

01EA 

FI 

0347 

POP 

PSW 

01E6 

67 

0348 

OPA 

A 

SETRELAY (K-16, OFF) 

01EC 

C3 

BB 

01 

0349 

JMP 

SETRELAY 
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OlEf 

0350  i 

01 EF  F5 

0351  LAI 

PUSH 

PSW 

SETRELAY(Kl.QNOFF) 

01 FO  IF 

0352 

RAP 

OIF!  3E  01 

0353 

MVI 

Ajl 

01FJ  CD  BB  01 

0354 

CALL 

SETRELAV 

01F6  FI 

0355 

FOP 

PSW 

01F7  CD  02  02 

0356 

CALL 

RLYON 

PULSE (K)  ON/OFF 

01  FA  C3  08  02 

0357 

JMP 

RLYOFF 

01 FD 

0358  I 

01FD  OF 

0359  NONLAT 

RRC 

. 

FOR  NONLATCHING,  SIMPLY 

01FE  07 

0360 

PLC 

, 

TEST  WHETHER  TO  TURN  THE  CURRENT 

01 FF  D2  08  02 

0361 

JNC 

RLYOFF 

ON  OR  OFF 

0202 

0362  » 

0202  CD  IP  02 

0363  RL  VON 

CALL 

SELECT 

A-SELECT  BITS  FOR  POWER 

0205  C3  OB  02 

0364 

JMP 

SRLV 

0208  CD  3D  02 

0365  PLYOFF 

CALL 

NLOFF 

h=TURN  OFF  BITS 

020B  67 

0366  SPLY 

MOV 

H,  A 

PUT  DECODER  BITS  IN  MSBYTE 

020C  F6  OF 

0367 

0R1 

NILAC 

DESELECT  DACS  FOR  LOW  POWER 

020E  6F 

0368 

MOV 

L,A 

020F  CD  31  02 

0369 

CALL 

SHF  16 

0212  3E  U 

0370 

MVI 

A,NWR+ANASTB 

02  M  D3  F3 

0371 

OUT 

SERIAL 

0216  C3  A’  03 

0372 

JMP 

DLA5 

021? 

0373  1 

0219 

0374  I  RELAY  SELECT  ROUTINE 

02  IP 

0375  <  ON  ENTRY: 

CA3-FELAY  4  TIMES  2 

02  IP 

0376  i  ON  EXIT: 

[AI--DECODER  SELECT  8ITS  PLUS  KO.l'l 

3219 

0377  1 

0219  87 

0378  SELECT 

ORA 

A 

A-RELAY  NUMBER  AGAIN 

021ft  IF 

0379 

RAR 

• 

02 IB  D6  02 

0380 

SUI 

2 

IF  KO  OR  Kl,  USE  OLD  select  bits 

02 ID  DA  29  02 

0381 

JC 

SELOI 

0220  E6  OF 

0382 

ANI 

OFH 

ELSE  CONVERT  A  INTO  DECODER  1 

0222  C6  18 

0383 

ADI 

18H 

0224  E6  27 

0384 

ANI 

27H 

MASK  AND  LOWER  F;LYDBL 

0226  C3  2C  02 

0385 

JMP 

SETSEL 

0229  3A  01  20 

0386  SELOI 

LDA 

OLDSEL 

GET  PRIOR  SELECTION 

022C 

0387  t 

022C  E6  3F 

0388  5ETSEL 

ANI 

03PH 

MASK  THE  SELECTION  BITS 

022E  32  01  20 

0389 

STA 

OLDSEL 

0231  5F 

0390 

MOV 

E,fi 

0232  3A  15  20 

0391 

LDA 

RS 

PUT  IN  KO  AND  K1 

0235  E6  03 

0392 

ANI 

3 

0237  OF 

0393 

RRC 

0238  OF 

0394 

RRC 

0239  EE  CO 

0395 

XRI 

OCOH 

INVERT  FOR  PNP  TRANSISTORS 

0238  B3 

0396 

ORA 

E 

023C  C9 

0397 

RET 

02  3D 

0398  1 

023D 

0399  t  TURN 

OFF 

POWER  TO  RELAYS  FROM  72  THRU  1(21 
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023D 

0400  1 

023D  CD  45  02 

0401  NLQFF 

CALL 

CLRNL 

CLEAR  NONLATCHING  STATUS 

0240  3E  10 

0402 

MV  I 

A,RLYD8L  DISABLE  RELAYS 

0242  C3  2C  02 

0403 

JHP 

SETSEL 

0245 

0404  t 

0245  3A  15  20 

0405  CLRNL 

LDA 

RS 

SHOW  NON-LATCHING  OFF 

0248  E6  83 

0406 

AN1 

083H 

024A  32  15  20 

0407 

STA 

RS 

024D  C9 

0408 

RET 

024E 

0409  t 

024E 

0410  <  RECORD  RELAY  ON/OFF 

024E 

0411  1 

024E  F5 

0412  RECRLY  PUSH 

PSN 

024F  FE  02 

0413 

CPI 

2 

ANY  RELAYS  BUT  K0/K1 

0251  D4  45  02 

0414 

CNC 

CLRNL 

CAUSE  NONLATCHING  TO  RESET 

0254  FI 

0415 

POP 

PSN 

0255  11  15  20 

0416 

LX  I 

D,  RS 

0258 

0417  * 

0258 

0418  1  S8IT:  (DEI 

->  ARRAY,  [AIM,  CARRY=BIT 

0258 

0419  t 

0258  F5 

0420  S8IT 

PUSH 

PSW 

SAVE  CARRY 

0259  FE  08. 

0421  S8I 

CPI 

8 

SET  HL-1BYTE 

025B  DA  64  02 

0422 

JC 

SB2 

025E  13 

0423 

INK 

D 

025F  D6  08 

0424 

SUI 

8 

0261  C3  59  02 

0425 

JHP 

SB  I 

0264  CD  80  00 

0426  SB2 

CALL 

UNARY 

L=81T  MAST 

0267  EB 

0427 

ICHG 

t 

0268  FI 

0428 

POP 

PSN 

GET  CARRY 

0269  7B 

0429 

MOV 

A,  E 

026 A  DA  71  02 

0430 

JC 

SBSET 

026D  2F 

0431 

CMA 

( 

CLEARING  A  8IT 

026E  A6 

0432 

ANA 

M 

026F  77 

0433 

MOV 

H,A 

0270  C’ 

0434 

RET 

, 

0271  B6 

0435  SBSET 

ORA 

M 

SETTING  A  BIT 

0272  77 

0436 

MOV 

M,  A 

0273  C9 

0437 

RET 

0274 

0438  » 

0274  21  03  20 

0439  IODSC 

LXI 

H, IOSTAT  REFERENCE  10  DIGITAL  STAT 

0277  85 

0440 

ADD 

L 

0278  6F 

0441 

MOV 

L  f  A 

0279  7E 

0442 

MOV 

A.H 

027A  C9 

0443 

RET 

0278 

0444  1 

027B 

0445  1  SEND 

BITS  TO  THE  ANALOG  I/O  REGISTER 

027B 

0446  1  ON  ENTRY: 

[HLHATA  TO  SHIFT 

0278 

0447  1 

0278  C5 

0448  SHF 8 

PUSH 

B 

027C  OE  08 

0449 

MVI 

C ,  8 

COUNT  OF  8 ITS 
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027E  C3  84  02 

0450 

JMP 

ASHF 

0281  C5 

0451  SHF  16 

PUSH 

8 

0232  OE  10 

0452 

MV  I 

C,  16 

0284 

0453  1 

0284  F 5 

0454  ASHF 

PUSH 

PSN  SAVE  ACCOM  FOR  RETURN 

0285  29 

0455  A3H1 

DAD 

H  SHIFT  ONE  BIT  INTO  CARRY 

0284  3E  03 

0456 

MV  I 

A.NWR/2  THEN  INTO  THE  LSB  OF  A 

0288  17 

0457 

RAL 

, 

0289  F3 

0458 

DI 

.  DON'T  ALLOW  SAMPLING  TO  INTERRUPT 

028A  D3  F3 

0459 

OUT 

SERIAL  PUT  DATA  OUT  WITH  CLOCKS 

02SC  F4  02 

0460 

OR  I 

SERCLK  THEN  WITH  RISING  EDGE 

028E  D3  F3 

0461 

OUT 

SERIAL 

0290  FB 

0462 

El 

0291  OD 

0463 

DCR 

C  UNTIL  --C0UNT=0 

0292  C2  85  02 

0464 

JNZ 

ASH! 

0295  FI 

0465 

FOP 

PSN 

0296  Cl 

0466 

POP 

8 

0297  C9 

0467 

RET 

0298 

0468  » 

0298 

f'46?  »  VTRIM  CONTROL  L08IC. 

0298 

0470  1  ON  ENTRY: 

H=1  FOR  VTRIM12,  2  FOR  VTRIM34 

0298 

0491  1 

tL3=DAC  VALUE  (8-BITS) 

0298 

0472  I 

0298  IE  03 

0473  SETVTRIM  MV I 

E, SVTRIMI256/256 

029A  CD  AD  01 

0474 

CALL 

RECDi 

029D  F5 

0475 

PUSH 

PSN  SAVE  WHICH  VTRIM 

029E  EB 

0476 

XCHG 

. 

029F  7A 

0477 

MOV 

A,  0  CONVERT  TO  0  TO  FF 

02A0  EE  7F 

0478 

XRI 

7FH  FROM  +/-  127 

02A2  57 

0479 

MOV 

D*  A 

02A3  2E  01 

0480 

MV  I 

L, 1  SELECT  VTRIM  PAIR  DAC 

02A5  CD  00  03 

0481 

CALL 

FSEND 

02A8  FI 

0482 

POP 

PSW  NOW  IF  VTR IM1 2, USE  SIDE  A 

02A9  2E  18 

0433 

MV  I 

L.NWR+FILSTB 

02AB  C3  99  01 

0484 

JNP 

STROBE 

02AE 

0485  $ 

02AE 

0486  1  FILTER  CONTROL  LOGIC. 

02AE 

0487  1  ON  ENTRY: 

K=F ILTER  NUMBER  1-7 

02AE 

0488  J 

CL3=FILTER  VALUE 

02AE 

0489  1 

02AE  IE  OD 

0490  SETFILTER  MV!  E, SFILTERf 256/256 

O2B0  3E  07 

0491 

MV  I 

A,  7  SET  MASK 

02B2  CD  AF  01 

0492 

CALL 

RECORD 

02B5  54 

0493 

MOV 

B,H  PUT  DATA  IN  D  REG 

02B6  3C 

0494 

I  NR 

A  TURN  ON  BIT  1-7 

02B7  E6  07 

0495 

ANI 

7 

02B9  CD  80  00 

0496 

CALL 

UNARY  L=BIT  SELECT 

02BC  CD  00  03 

0497 

CALL 

FSEND 

02BF  3E  18 

0498 

MV  I 

A, NWR+FILSTB  CHOOSE  A  SIDE 

02C1  CD  m  01 

0499 

CALL 

AS! 
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02C4 

JE 

33 

0500 

MV  I 

A.NWR+FILSTB+AB  THEN  B  SIDE 

02C6 

CO 

AO 

01 

0501 

CALL 

AS1 

02C<? 

C3 

FA 

02 

0502 

JMF 

FILCLEAR 

02CC 

0503 

< 

02CC 

0504 

1 

SET  MULTIPLEXOR  BITS  WHICH  STEEF  THE  FILTERING 

02CC 

0505 

» 

ON  ENTRY: 

A=MULTIFLEXOfi  NUMBER  ON  FILTER  BOARD 

02CC 

0506 

1 

L-VALUE  TO  ADDRESS  ON  THAT  HUX 

02CC 

0507 

I 

02CC 

cs 

0508 

5ETMUX  PUSH 

B  CALL  THE  BIT  REPLACEMENT 

02CD 

5D 

0509 

MOV 

E,L  ROUTINE  TO  REPLACE  ONLY 

02CE 

2! 

F2 

02 

0510 

LXI 

H. MUXFIELD  THE  FIELD  FOR  THAT  REG 

02B1 

E6 

07 

0511 

ANI 

7  HAS!  THE  REGISTER  NUMBER 

0223 

4F 

0512 

MOV 

C,A 

02D4 

06 

00 

0513 

MV  I 

B,  0 

0206 

OP 

0514 

DAD 

B 

0207 

0515 

1 

■>2D7 

3A 

14 

20 

0516 

LDA 

HUXCOPY  GET  THE  MUX  REGISTER 

02  DA 

CD 

Cl 

03 

0517 

CALL 

REPF1ELD  REPLACE  THE  ONE  FIELD 

025D 

32 

14 

20 

0518 

STA 

MUXCOPY  AND  THEN  SEND  IT  OUT 

02EO 

Cl 

0519 

POP 

B 

02  El 

C3 

FA 

02 

0520 

JMP 

FILCLEAR 

02E4 

0521 

1 

02E4 

0522 

1  TEST  MULTIPLEXOR  BITS 

02E4 

0523 

1 

ON  ENTRY: 

IAI=FIELD  NUMBER 

02E4 

0524 

1 

ON  EXIT: 

ZERO  FLAG  IF  FIELDS 

02E4 

0525 

1 

02E4 

E6 

07 

0526 

TSTMUX  ANI 

7  tHU->MUXFIELD(A) 

02E6 

5F 

0527 

m 

M 

02E7 

16 

00 

0526 

MVI 

D,  0 

02E? 

21 

F2 

02 

0529 

LXI 

H,  MUXFIELD 

02EC 

19 

0530 

DAP 

D 

02ED 

3A 

14 

20 

0531 

LDA 

MUXCOPY  PICE  UP  ALL  BITS 

O2F0 

A6 

0532 

ANA 

M  MASK  TO  SET  STATUS 

02F1 

C9 

0533 

PET 

02F2 

0534 

l 

02F2 

20 

0535 

MUXFIELD  DB 

32  V2/RI2  MUX 

02F3 

01 

0536 

DB 

1  V12/RII 

02F4 

06 

0537 

DB 

6  6-POLE  SELECT 

02F5 

00 

0538 

DB 

8  Vl/SC 

02F6 

21 

0539 

DB 

32+1  V2+V12  TOGETHER 

02F7 

27 

0540 

DB 

32+1+6  V2+V12+6P0LE 

02FB 

2F 

0541 

DB 

32+W6+8  V2+VI2+6P0LE+V1 

02F<V 

10 

0542 

DB 

16  8  AMPLIFIER 

02FA 

0543 

1 

02  FA 

0544 

t 

FILTER  BOrtRD  CONTROL  ROUTINE: 

02FA 

0545 

l 

02FA 

21 

00 

00 

0546 

FILCLEAR  LX  I 

H,0  CLEAR  THE  SELECTS 

02FD 

11 

00 

00 

0547 

LXI 

D,0  CLEAR  THE  DATA  REGS 

0300 

0548 

l 

0300 

0549 

1  FILTER  SEND.  ON  ENTRY  CDEMATA  AND  CU=SELECT  1 
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0300 

0550 

t 

0300 

E5 

0551 

FSEND  PUSH 

K 

SEND  mt  PITS  DOWN 

0301 

3A 

14  20 

0552 

LDA 

HU  ii  COPY  WITHOUT  THE  LATCHING 

0304 

67 

0553 

MOV 

H,A 

0305 

CD 

7B  02 

0554 

CALL 

SHF8 

0300 

El 

0555 

PGP 

H 

030? 

EB 

0556 

XCHG 

, 

NOW  SEND  BITS  FROM  IDE] 

030A 

CD 

7  8  02 

0557 

CALL 

SHF8 

030D 

055S 

t 

0300 

?B 

0559 

MOV 

A,E 

INVERT  SELECT  BITS 

030E 

2F 

0560 

CHA 

t 

030F 

67 

0561 

MOV 

H,A 

0310 

CD 

7B  02 

0562 

CALL 

SHFS 

0313 

0563 

( 

0313 

3E 

1? 

0564 

MV1 

A.NWR+F1L5TE:  STROBE  THE  FILTER 

0315 

DO 

F3 

0565 

OUT 

SERIAL 

BOARD 

031' 

C9 

0566 

RET 

t 

0318 

0567 

1 

0318 

0568 

1  MOTOR  CONTROL  SECT 

ION 

0318 

0569 

*  ON  ENTRY: 

A»KOTQRt,  CAPPY=1  FOP  ON,  0  FOR  OFF 

0318 

0570 

l 

0318 

0571 

« 

0318 

SF 

057  2 

SETMOTOR  ADC 

A 

CONVERT  1  AND  ON/OFF 

0319 

CP 

30  00 

0573 

CALL 

UNARY 

INTO  EH  NUMBER 

03 1C 

CD 

4?  03 

0574 

CALI 

FLIP 

INVERT  THAT  BIT 

03  IF 

3E 

OA 

0575 

MV! 

A,  10 

DELAY  50  MILLISECONDS 

>321 

CP 

A7  03 

0576 

S-i&LA  CALL 

DLA5 

0324 

3D 

0577 

OCR 

A 

0325 

C2 

21  03 

0573 

JU¬ 

SHCLA 

0328 

C3 

49  03 

0579 

MP 

FLIP 

AND  RESET 

032  B 

0580 

1 

032B 

058! 

I  CYCLF  THE  KELLEY  GAIN  CHANGE. 

G52B 

0582 

t 

032B 

2E 

8.; 

0562 

SETKLY  MV I 

L,HYGC 

032  D 

C3 

46  03 

0584 

JMP 

CYCLE 

0330 

05B5 

1 

0330 

0586 

1  OUTPUT  THE  MAGNETOMETER  DATA  10  THE  PLASMA  EXF. 

0330 

0587 

»  ON  ENTRY: 

CHLJ-16 

BIT  VALUE  TO  SEND 

0330 

0588 

» 

0330 

E5 

0539 

SETPLA  PJ5H 

H 

0331 

IE 

40 

0590 

MV  I 

L, MAGLOAD  INDICATE  REGISTER  LOADING 

0352 

CD 

49  03 

05?  1 

CALL 

FLIP 

0336 

El 

0592 

POP 

H 

053/ 

7C 

0593 

MOV 

ft,  H 

SET  HIGH  BYTE 

0338 

*.r 

4* 

0594 

CHA 

« 

INVER!  FOR  THE  OPEN  COLLECTOR 

033? 

33 

DO 

0595 

OUT 

LEPAH 

03  3  B 

7D 

0596 

MOV 

A,L  . 

AND  LON  BYTE 

v:3C 

2F 

(•597 

CHA 

0320 

D3 

90 

0598 

OUT 

LEPAL 

"S3F 

2E 

40 

059? 

MV  I 

L.MA6L0AD  RE-ENABLE  SHIFTING 
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0341  C3  49  03 

0600 

JHP 

FLIP 

0344 

0601  4 

0344  2E  20 

0602  RBURST  HVI 

L,BRUN 

RESET  BURST 

0346  CD  49  03 

0603  CYCLE 

CALL 

FLIP 

CYCLE=FL IP  TWICE 

0349  3A  00  20 

0604  FLIP 

LDA 

HKBCOPT 

f  PICK  UP  COPY  OF  PORT 

034C  AD 

0605 

XRA 

L 

INVERT  THE  BIT  IN  L 

034D  D3  CO 

0606 

OUT 

ROTORS 

034F  32  00  20 

0607 

STA 

HKBCQPY 

0352  C9 

0608 

PET 

0353 

0609  4 

0353 

0610  1  SEND  CHL3  ' 

[Q  THE  BURST  PROCESSOR 

0353 

0611  4  ON  EXIT:  CARRY  SET 

IF  FAILURE  TO  C0HHUN1CATE 

0353 

0612  * 

0353  20 

0613  SEND 

OB 

RIH 

IF  BURST  RDY  NOW 

0354  07 

0614 

RLC 

, 

RECOVER  BY  RECEIVING 

0355  DC  7E  03 

0615 

CC 

RECOVER 

0358 

0616  4 

0358  E5 

0617 

PUSH 

H 

SAVE  HL  AND  BC 

0359  C5 

0618 

PUSH 

B 

035A  01  10  00 

0619 

LXI 

B,  16 

CEBITS  TO  SEND 

035D  3E  CO 

0620 

HVI 

A.SDO+SDOEN  SDQ=1  (REQUEST  ATTN! 

035F  30 

0621 

DB 

SIH 

0360  05 

0622  WTBRS 

DCR 

B 

WAIT  HA>  OF  3.9  HSEC 

0361  37 

0623 

STC 

• 

0362  CA  77  03 

0624 

JZ 

SENDX 

0365  20 

0625 

DB 

RIH 

WAITING  FOR  BURST  TO  RESPOND 

0366  07 

0626 

RLC 

• 

(READY  IF  1) 

0367  D2  60  03 

0627 

JNC 

HTBRS 

036A  00 

0628 

NuF 

• 

DISABLE  WORD  AND  CHD  INTERRUPTS  ONLY 

036B  3E  4D 

0629 

HVI 

A.SDQEN+HSE+D1575+DIS55  SD0=0  TO  START 

036D  30 

0630 

DB 

SIH 

036E  3E  80 

0631  SEND  1 

HVI 

A,SD0EN42  GET  THE  NEXT  BIT 

0370  29 

0632 

DAD 

H 

BY  SHIFT IN6  THRU  HSB  OF  HL 

0371  IF 

0633 

RAP 

THEN  INTO  HSB  OF  ACCUH 

0372  30 

0634 

DB 

SIH 

0373  OD 

0635 

DCR 

C 

COUNT  1  BITS 

0374  C2  6E  03 

0636 

JNZ 

SEND1 

0377  3E  48 

0637  SEND! 

HVI 

A,SDOEN+HSE  LEAVE  SDQ=0,  INTS  ON 

0379  30 

0638 

D8 

SIH 

037A  FB 

0639 

El 

( 

RESTART  INTERRUPTS 

037E  Cl 

0640 

POP 

B 

037C  El 

0641 

POP 

H 

037D  C9 

0642 

RET 

037E 

0643  4 

037E  E5 

0644  RECOVER  PUSH 

H 

SRAB  THE  INFO 

037F  CD  84  03 

0645 

CALL 

RECEIVE  FROH  THE  BURST 

0382  El 

0646 

POP 

H 

AND  THROW  AWAY 

0383  C9 

0647 

RET 

0384 

0648  4 

0384  0649  t  RECEIVE  DATA  FROM  THE  BURST 
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0334 

0650  t  ON  EXIT:  IF  NOT  ZERO,  IHLM6  BITS  FROM  BURST 

0384 

0651  * 

ELSE  NOTHING  READY 

0334 

0552  1 

03B4  20 

Os 53  RECEIVE  DB 

PIN 

IF  REBUEST  FROM  BURST 

0335  E6  SO 

0654 

ANI 

SDQ 

IS  NOT  PRESENT,  RETURN  NOW. 

C3B'  CB 

0655 

RZ 

M 

0389 

0656  1 

03SS  C5 

0657 

PUSH 

S 

SAVE  REGISTERS 

0389  EB 

0659 

XCHu 

. 

03BA 

0659  t 

038A  01  10  00 

0660 

LXI 

P,  16 

SHIFT  1  EITS 

03SD  00 

0661 

NOP 

, 

DISABLE  ONLY  NURD  AND  CMD  INTERRUPTS 

03BE  3E  CD 

0662 

HVI 

A, SD0+SD0EN+HSE+DIS75+DIS55  ANSWER  WITH  SDO 

0390  30 

0663 

DR 

SIM 

0391  20 

0664  RECKT 

DB 

RIM 

WAIT  FOR  START  EDGE 

0392  04 

0665 

INR 

B 

BUT  DON'T  WAIT  FOREVER 

0393  As 

0666 

XRA 

B 

IF  B=I26,  QUIT 

0394  FA  91  03 

0667 

JM 

RECWT 

0397 

0668  1 

0397  OA 

0669  RECB1T 

LDAX 

B 

7  CYCLE  DELAY 

0399  20 

0670 

CB 

RIM 

SET  THE  BIT 

0399  07 

0671 

RLC 

039 A  16 

0672 

DB 

SIDE 

SHIFT  INTD  DE 

039B  OD 

0673 

OCR 

C 

039C  C2  97  03 

0674 

JNZ 

RECBIT 

039F  EE 

0675 

XCHG 

t 

PUT  RESULT  INTO  HL 

03A0  3E  43 

0676 

HVI 

A, SD0EN+M3E  SDO-'O,  INTS  ON 

03A2  30 

Oc77 

DB 

SIM 

03A3  B7 

0673 

ORA 

A 

RETURN  NOT- ZERO 

03A4  Cl 

0679 

POP 

B 

03A5  F3 

06B0 

El 

, 

RE-ENABLE  INTERRUPTS 

33A6  C9 

0681 

RET 

03A' 

0682  1 

03A7 

06B3  1  DELAY  ROUTINE 

03A7 

06B4  I 

03A7  P5 

0685  0LA5 

PUSH 

PSW 

WAIT  5  MILLISECONDS 

03A8  D5 

0686 

PUSH 

D 

03A9  11  FE  01 

0687 

LXI 

D,  510 

2.5  MHZ/23  CYCLES 

03AC  IB 

068B  DU 

DCX 

D 

BY  COUNTING 

03AD  7B 

0689 

MDV 

A,E 

03AE  62 

0690 

ORA 

D 

03AF  C2  AC  03 

0691 

JNZ 

DLI 

03B2  D1 

0692 

POF 

D 

03B3  FI 

0693 

POP 

PSW 

03B4  C9 

0694 

RET 

• 

03B5 

0695  1 

03B5 

0696  1  RESET  WATCHDOG  CIRCUIT 

03B5 

0697  i 

03B5  JA  00  20 

0698  RHATCH  LDA 

m.BCOPY  PULSE  THE  RESET 

03B8  F6  10 

0699 

ORI 

HDRES 

LINE  TO  THE  4015 
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03BA  D3  CO 

0700 

OUT 

MOTORS 

COUNTER 

03BC  EE  10 

0701 

XRI 

MORES 

03BE  03  CO 

0702 

OUT 

MOTORS 

03 CO  C9 

0703 

RET 

03C1 

0704  I 

03C1 

0705  »  FIELD  REPLACEMENT  ROUTINE 

03CI 

0706  1  ON  E 

NTRY: 

1A]  =  ORIGINAL  B-BIT  VALUE 

03C 1 

0707  1 

tHU->HASK  OF  THE  FIELD 

03C1 

070B  1 

IE]  =  NEW  VALUE  RIGHT  ADJUSTED 

03CI 

0709  I 

03C1  4F 

0710  REPFIELD  HO'. 

i  C,A 

SAVE  ORIGINAL 

03C2  TE 

0711 

MOV 

A,M 

REMOVE  THE  MASKED  FIELD 

03C3  2F 

0712 

CMA 

03C1  A1 

0713 

ANA 

C 

03C5  4F 

0714 

MOV 

C,A 

03C4 

0715  1 

03Co  EP 

0716 

7CHG 

, 

IDEJ->HASK,  L*VALUE 

03C7  I A 

0717 

LDAX 

D 

SHIFT  THE  VALUE  INTO  POSITION 

03C8  OF 

0718  RFl 

RRC 

, 

BY  SHIFTING  THE  MASK 

03C9  DA  DO  03 

0719 

JC 

PF2 

THE  OTHER  WAY  UNTIL  A  BIT 

03CC  29 

0720 

DAD 

H 

03CD  C3  C8  03 

0721 

JHP 

RFl 

03 DO  I A 

0722  RF2 

LDAX 

D 

MASK  THE  SHIFTED  VALUE 

0351  A5 

0723 

ANA 

L 

03D2  BI 

0724 

ORA 

C 

AND  APPLY  TO  MODIFIED  ORIGINAL 

03D3  C9 

0725 

RET 

03D4 

0726  NETT 

EQU 

$ 

03B4 

0727 

COM 

NEXT 

03D4 

0728  1 

03D4 

0729  *  RAH  SECTION 

03D4 

0730  1 

03D4 

0731 

ORG 

I  ORAM 

2000 

0732  MKBCOf'Y  DS 

1 

COPY  OF  MOTOR  PORT 

2001 

0733  OLDSEL  DS 

I 

COPY  OF  RELAY  SELFCT  BITS 

2002 

0734  SUNCOPY  DS 

I 

COPY  OF  SUN  BIT 

2003 

0735  IOSTAT  ESU 

i 

DIGITAL  STATUS  RETURNED  FROM  10 

2003 

0736  SVTRIH  DS 

2 

STATUS  OF  VTRIHS, ETC 

2005 

0737  SB1AS 

DS 

4 

2009 

0738  SSTUB 

DS 

2 

200B 

0739  SGUAPD  DS 

L 

200D 

0740  SFILTER  DS 

7 

2014 

0741  MUXCOPY  DS 

I 

COPY  OF  FILTER  MUX 

2015 

0742  RS 

DS 

7 

RELAY  BITS  0-23 
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0000  0001  I 

0000  0002  I  CRFES  FLIGHT  SOFTWARE — FAST  FLOATING  POINT 


0000 

0003  *  WRITTEN  BY  PETER  HARVEY 

0000 

0004  1  TILE  :  FFR.A 

0000 

0005  1 

oooo 

0006  t  F.P, 

,  REGISTER  IS  COE. 

0000 

0007  1  FORMAT  1 

IS  SIGN  < 1 ) +EXP (7 1 +MANTISSA ! : 

0000 

0008  1  NO  HIDDEN  BIT 

0000 

0009  * 

0000 

0010  PSW 

ECU 

6 

0000 

0011  SP 

ECU 

6 

0000 

0012  * 

0000 

FFP 

EQU 

NEXT 

0000 

0013 

ORE 

FFP 

03D4 

0014 

COM 

LODFP 

0304 

0015 

CGN 

STOFP 

0304 

0016 

COM 

FMUL 

0304 

0017 

COM 

FDIV 

0304 

0018 

CDH 

FADD 

(3  04 

0019 

COM 

FSUB 

0304 

0020 

COM 

FCMP 

0304 

0021 

COM 

FNEG 

0304 

002i 

COM 

FLT32 

0304 

0023 

COM 

FIX32 

0304 

0024 

COM 

FSBUA 

0304 

0025 

COM 

FSQRT 

0304 

002c 

COM 

MU2I 

0304 

002’  1 

0304  4E 

0028  LODFP 

MOV 

C,M 

0305  23 

0029 

I  NX 

H 

0306  56 

0030 

MOV 

D,M 

0307  23 

0031 

INX 

H 

0308  5E 

0032 

MOV 

E,M 

0309  C9 

0033 

RE  I 

. 

030A 

0034  1 

030 A  71 

0035  STGFP 

MOV 

M,C 

0306  23 

0036 

IN) 

H 

03 DC  72 

0037 

MOV 

H,D 

0300  23 

0038 

INX 

H 

03DE  73 

0039 

MOV 

M,E 

03DF  C9 

0040 

RET 

• 

03E0 

0041  t 

O3E0 

0042  1  F.P. 

MULTIPLY  ROUTINE 

03E0 

0043  t 

03E0  7A 

0044  FMUL 

MOV 

A , D  IF  1=0,  QUIT  NOW 

03E1  B7 

0045 

ORA 

A 

03E2  C8 

0046 

R2 

« 

03E3  46 

0047 

MOV 

B,M  LOAD  PARAM  FROM  1 

07E4  23 

0048 

INX 

H  INTO  6 HI  FORMAT 
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03E5  7E 

0049 

MOV 

A,H 

03E6  B7 

0050 

ORA 

A 

IF  ZERO  THEN  SET  TO  0 

03E7  CA  70  05 

0051 

J  2 

RETO 

03EA  23 

0052 

I  NX 

H 

ELSE  LOAD  THE  REST 

03EB  6E 

0053 

MOV 

l,h 

03EC  67 

0054 

MOV 

H,  A 

03ED 

0055  1 

03ED  78 

0056  FMS33 

MOV 

A,  B 

IF  SAME  SIGN,  60 

03EE  A9 

0057 

XRA 

C 

03EF  F 2  FD  03 

0058 

JP 

FMU33 

03F2  CD  81  05 

0059 

CALL 

STRIF 

REMOVE  SIGNS  FROM  B^C 

03F5  CD  FD  03 

0060 

CALL 

FMU33 

MULTIPLY  THEN  NEGATE 

03F8 

0061  1 

03FB 

0062  FNES 

EQU 

* 

03F8  79 

0063  NE6FP 

MOV 

A,  C 

AND  NEGATE  F.P 

03F9  EE  BO 

0064 

XRI 

80H 

03F8  4F 

0065 

MOV 

C,  A 

03FC  C9 

0066 

RET 

03FD 

0067  1 

03FD 

0068  1  F.P. 

MULTIPLY  POSITIVES  ONLY 

03FD 

0069  1 

03FD  78 

0070  FMU33 

MOV 

A,  B 

ADD  EXPONENTS 

03FE  81 

0071 

ADD 

C 

03FF  D6  40 

0072 

SUI 

4GH 

ADJUST  BACK  TO  EXCESS  64 

0401  FA  76  05 

0073 

JM 

ERCHK 

IF  MINUS,  CHECK  THE  ERROR 

0404  4F 

0074 

MOV 

C.A 

0405  CD  FO  05 

0075 

call 

MU22F 

CAHL. 3-  DE  X  HL 

0408  CJ  5C  05 

0076 

JMP 

NCHK 

SHIFT  UNTIL  AHL  NORMED, ROUND 

040E 

0077  t 

040B 

0078  *  F.P. 

DIVIDE 

040B 

0079  * 

040B  7A 

0080  FDIV 

MOV 

A.G 

IF  ZERO  DIVIDEND,  QUIT 

040C  B7 

0081 

ORA 

A 

040D  C9 

0082 

R2 

( 

040E  46 

0083 

MOV 

B,M 

PICK  UP  DIVISOR 

040F  23 

0084 

1NX 

H 

0410  7E 

0085 

MOV 

A,M 

0411  B7 

0086 

ORA 

A 

IF  DIVISOR  0,  OVERFLOW 

0412  CA  7B  05 

0087 

JZ 

OVERFLOW 

0415  23 

0088 

I  NX 

H 

0416  6E 

0089 

MOV 

L,H 

0417  67 

0090 

MOV 

H.A 

0418 

0091  1 

0418  78 

0092 

MOV 

A,B 

IF  SAME  SIGN,  DO 

0419  A9 

0093 

XRA 

C 

SAME  SIGNED  VERSION 

041 A  F2  26  04 

0094 

JP 

FDU33 

041D  CD  81  05 

0095 

CALL 

STRIP 

REMOVE  SIGNS 

0420  CD  26  04 

0096 

CALL 

FDU33 

DIVIDE  OUT 

0423  C3  F8  03 

0097 

JMP 

NE6FP 

AND  NEGATE 

0426 

0098  1 

PAGE  02 
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0426  79 

0099  FDU33 

MOV 

A,C  E1P=C-B»40H 

0427  90 

010  J 

SUB 

E 

0428  Cc  40 

0101 

A01 

4  OH 

042A  FA  7a  05 

0102 

JH 

EPCHK 

0422  4F 

0103 

MOV 

C.A 

042E  C5 

0104 

PUSH 

£  SAVE  EXPONENT 

042F 

0105  1 

042F  7C 

0106 

MOV 

A,  H  BC=-D1 VISOR 

0430  2F 

0107 

CMA 

0431  47 

0108 

MOV 

By  A 

0432  7S 

0109 

MOV 

A,L 

0433  2F 

0110 

CMA 

0434  4r 

0111 

M3  V 

C.A 

0435  03 

0112 

INI 

B 

0436 

0113  » 

0436 

0114  1  IF 

THE  REMAINDER  STARTS  AS  LARGE  AS 

0436 

0115  »  THE  0IV1S0R,  THE  FIRST  BIT  IS  1 

0436 

0116  $ 

0436  62 

0117 

MOV 

H,  0  HL=REMAINOER 

0437  60 

01  IE¬ 

MOV 

L,E 

0438  09 

OH  9 

OAD 

B  HL=P,EMA  I NOER-  D I VI  SOP: 

0439  DA  56  04 

0120 

JC 

FE1T1 

043C 

0121  » 

043C 

0122  t  IF  REHAINOER  LESS  THAN  DIVISOR,  THE  FIRST 

043C 

0123  1  BIT  (INTEGER  PART)  IS  ZERO.  DIVIDE  FOP 

f-  A  -  p 

0124  »  FRACTIONAL  FART  WHICH  HILL  BE  AUTOMATICALLY 

047C 

0125  t  NORMAL  1 2ED. 

043C 

0126  t 

043C  EE' 

0127 

XCHG 

HL=REMAI NDER  AGAIN 

0430  3E  10 

0128 

MV  I 

A,  16 

043F  CD  6F  04 

0129 

CALL 

FDSHF  [BE]-[HLIf2/tBC) 

0442  29 

0130 

CAD 

H  IF  FEMAINOER >S000H 

0443  E'A  4C  04 

0131 

JC 

DVROND  THEN  ROUNO  UP 

0446  09 

0132 

DAO 

B  IF  NEXT  BIT  WOULD  BE  1 

0447  DA  4C  04 

0133 

JC 

CVRONO  THEN  ROUNO  UP 

044A  Cl 

0134 

POP 

B  RESTORE  EXPONENT 

044B  C9 

0135 

RET 

NO  NORMALIZATION  REOD 

044C 

0136  t 

04 4 C  Cl 

0137  OVROND  POP 

£  C=EXPONENT 

044D  !C 

0138  RONO 

INP 

E  ROUNO  OFF  OE 

044E  CO 

0139 

RN2 

PUT  OON'T  FFODUCE 

044f  14 

0140 

I  NR 

C  A  ZERO 

0450  CO 

014! 

RNZ 

, 

0451  11  00  60 

0142 

LX  I 

D,8000H  IF  ZERO,  THEN 

0454  OC 

C143 

I  NR 

C  UP  THE  EXPONENT 

0455  C9 

0144 

PET 

• 

0456 

0145  t 

0456 

0146  1  FIRST  BIT=1 

.  DIVIDE  OUT  16  MORE  BITS 

0456 

0147  t  USING  WHAT'S  LEFT  OF  THE  REHAINOER  IN  HL 

0456 

0148  1 
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0456  3E  10 

0149  FB I T 1 

m 

A,  16 

0458  11  FF  FF 

0150 

LX! 

8.-1 

0456  CD  6F  04 

0151 

CALL 

PDSHF 

CDEKHLT/IB2T 

04jE 

0152  « 

0*5E  Cl 

0153 

FQP 

B 

RESTORE  THE  EXPONENT 

045F  OC 

0154 

INF 

C 

ADJUST  SINCE  1ST  BiT=l 

0460  37 

0155 

STC 

. 

RIGHT  SHIFT  A  1  INTO  DE 

0441  7A 

0156 

MOV 

H,0 

0462  IF 

0157 

RAP 

0463  57 

0158 

MOV 

B,A 

0464  7B 

0159 

MOV 

A.E 

0465  IF 

0160 

RAR 

0466  5F 

0161 

MOV 

E,A 

0467  CO 

0162 

F.NC 

, 

IF  17TH  BIT  WAS  0,  STOP 

046?  CO  4D  04 

0163 

JHP 

POND 

ELSE  ROUND  OFF 

046B 

0164  1 

046B 

0165  1  DIVIDE  NORMALIZED 

INTEGERS  FOR  F.P. 

046B 

0166  t 

0466  33 

0167  FDSTK 

I  NX 

SP 

REMOVE  PARTIAL  REMAINDER 

046C  33 

0168 

INK 

SP 

FROM  STACT 

046D  3D 

0169  FDTST 

OCR 

A 

DECR  BIT  COUNTER 

046E  C8 

0170 

RZ 

. 

04 6F  29 

0171  FDSHF 

DAD 

H 

BRING  DOWN  A  BIT  INTO  REM 

0470  DA  91  04 

0172 

JC 

SUBIT 

IF  >-10000,  THEN  SUBTRACT 

0473  EB 

0173 

XCHG 

, 

0474  29 

0174 

DAD 

H 

AND  SHIFT  RESULT  REG 

0475  EB 

0175 

XCHG 

0476 

0176  » 

0476  1C 

0177 

I  NR 

E 

ASSUME  RESULT5! 

0477  E5 

0173  FDV22 

PUSH 

H 

SAVE  REMAINDER  ON  STK 

0478  09 

0179 

DAD 

B 

IF  REM'DIVISCR, LEAVE  REM  ALONE 

0479  DA  68  04 

0180 

JC 

FDSTF 

047C  El 

0181 

FOP 

H 

ELSE  RESTORE  REMAINDER 

047D  ID 

0182 

DCP, 

E 

SET  RESULT  B1T=0 

047E  C3  6D  04 

0183 

•IMP 

FDTST 

0491 

0184  1 

0491  EB 

0185  SUBIT 

XCHG 

• 

FINISH  THE  SHIFT 

0482  29 

0186 

DAD 

H 

0483  EB 

0187 

XCHG 

. 

0484  09 

0168 

DAD 

B 

SUBTRACT  DIVISOR 

0485  1C 

0189 

1  NR 

E 

SET  RESULT  BIT 

0486  C3  6D  04 

0190 

JHP 

FDTST 

0499 

0191  « 

0489 

0192  *  F.P. 

COMF1 

ARE 

0439 

0193  »  ON  EXIT: 

ZERO  SET 

IF  EQUAL,  CARRY  IF  LESS  THAN 

0489 

0104  | 

COE  UNTOUCHED 

0439 

0195  » 

0489  C5 

019s  FCMP 

PUSH 

B 

SAVE  CDE 

048A  D5 

0197 

PUSH 

D 

0488  CD  93  04 

0196 

CALL 

FSUB 

SUBTRACT  THE  TWO 

198 


UC8  SPACE  SCIENCES  LAB 
CRFES  FLIGHT  SOFTWARE  V2.1 


12-6-38 


PAGE  0 


043E  7A 

0!?? 

(10V 

A.O 

IF  RESULTS,  RET 

■:-43F  B7 

0200 

QPA 

A 

0490  CA  95  04 

0201 

JZ 

FCMPX 

0495  79 

0202 

NOV 

A.C 

IF  NEGATIVE,  THEN 

04 2 4  07 

0203 

PLC 

, 

SET  CARRY,  ELSE  NO  CARRY 

0495  El 

0204  FCMF'X 

POP 

D 

RESTORE  CDE 

0496  Cl 

0205 

FOP 

6 

04??  C9 

0206 

PET 

, 

04  9  S 

0207  1 

0498 

0208  1  F.P. 

sue 

(498 

0209  » 

0493  7£ 

0210  FSUB 

MOV 

A,M 

INVERT  SIGN  OF  2ND 

0499  EE  30 

0211 

HR  I 

80H 

PARAMETER 

04  n  47 

0212 

MOV 

B.A 

049C  C3  AO  04 

0213 

JMP 

FAD1 

049F 

0214  t 

049F 

0215  1  F.P. 

ADD 

04  9  F 

0216  « 

049'  4t 

0217  FADD 

MOV 

B,M 

L3AD  UP 

04  Ao  23 

0218  FAD1 

INI 

H 

0  4  h 1  7E 

0219 

MOV 

A,M 

04A2  23 

0220 

I  NX 

H 

04A3  oE 

0221 

MOV 

L,« 

04 A 4  67 

0222 

MOV 

H.  A 

04A5  97 

0223 

SUB 

A 

0446  BC 

0221 

CMP 

H 

IF  BHL-C*.  QUIT 

04 A7  C3 

0225 

RZ 

. 

04AB  BA 

0226 

CMP 

D 

IF  CDE-Q,  QUIT 

04A9  [4  OC  05 

0227 

JZ 

SWITCH 

04  AC 

0223  1 

04 AC  7? 

0229 

MOV 

A.C 

COMPUTE  EXP  DIFFERENCE 

C4AD  90 

0230 

SUB 

B 

04AE  87 

0231 

ADD 

A 

04AF  F2  88  04 

0232 

JP 

P03DX 

0482  r3 

0233 

MOV 

A,B 

SWAP  CDE  FOR  BHL 

0483  41 

0234 

MOV 

8,C 

0464  4F 

0235 

MOV 

C,  A 

0485  E8 

0236 

XCHG 

0436  90 

0237 

SUB 

B 

COMPUTE  EXP  DIFFERENCE 

04B7  87 

0238 

ADD 

A 

AGAIN 

0463  CA  C2  04 

9239  POSE* 

JZ 

AD5UB 

04EB  OF 

0240 

RFC 

• 

DIV  BY  2 

04 8 C  FE  10 

0241 

CPI 

16 

IF  CDE»8HL,  SUIT 

04EE  DO 

0242 

RNC 

049F  CD  F4  04 

0243 

CALL 

SHFHL 

REDUCE  HL  A  TIMES 

04C2 

0244  1 

04C2  78 

0245  ADSUE 

MOV 

A.B 

IF  SIGNS  DIFFER.  GO 

04C3  A9 

0346 

XRA 

C 

j4C4  FA  02  04 

02*7 

J« 

DIFFER 

04C7  19 

0248 

DAD 

D 

ADD  DE  TO  HL 

199 


!JCB  SPACE  SCIENCES  LAB 
CRRES  FLI6HT  SOFTWARE  V2.1 


12-o-SB 


PABE  06 


04C8  E8 

0249 

XCHS 

, 

04C?  DO 

0250 

RNC 

, 

04  CA 

0251  « 

04CA  7A 

0252  RITE1 

MOV 

A,D 

04CB  IF 

0253 

RAR 

, 

C4CC  57 

0254 

MOV 

D,A 

04CD  7B 

0255 

MOV 

A,E 

04CE  IF 

0256 

RAR 

04CF  5F 

0257 

MOV 

E,A 

04 DO  OC 

0258 

INR 

C 

04D1  C9 

0259 

RET 

( 

0402 

0260  1 

04D2  7B 

0261  DIFFER  MOV 

A,E 

04D3  95 

0262 

SUB 

L 

04D4  7A 

0263 

MOV 

A,  D 

04D5  9C 

0264 

SB8 

H 

0406  CA 

E7  04 

0265 

JC 

SUED 

04D9 

0266  » 

04D9  57 

0267 

MOV 

D ,  A 

04DA  78 

0268 

MOV 

A,E 

04DB  95 

0269 

SUB 

L 

04DC  5F 

0270 

MOV 

E,A 

04DD  21 

00  00 

0271 

LX  I 

H,  0 

04E0  B2 

0272 

OPA 

D 

04E1  C2 

21  05 

0273 

JNZ 

NORN 

04E4  OE 

00 

0274 

MV  I 

C,0 

04E6  C9 

0275 

RET 

, 

04E7 

0276  1 

04E7  7D 

0277  SUED 

NOV 

A,L 

04E8  93 

0278 

SUB 

E 

04E9  5F 

0279 

MOV 

E*A 

04EA  7C 

0280 

NOV 

A,H 

04EB  9A 

0281 

5BB 

D 

04 EC  57 

0282 

NOV 

D,A 

04ED  48 

0283 

NOV 

C ,  B 

04EE  21 

00  00 

0284 

LX  I 

H ,  0 

04F1  C3 

21  05 

0285 

JMP 

HORN 

04F4 

0286  t 

04F4 

0287  1  SHIFT  HL  RIGHT  A 

04F4 

0288  t 

04F4  D6 

08 

0289  SHFHL 

SUI 

8 

04F6  DA 

FF  04 

0290 

JC 

LT8 

04F9  6C 

0291 

NOV 

L,H 

04FA  26 

00 

0292 

NVI 

H,  0 

04FC  C8 

0293 

RZ 

, 

04FD  D6 

08 

0294 

SUI 

8 

04FF  C5 

0295  LT8 

PUSH 

B 

0500  47 

0296 

NOV 

B.A 

0501  97 

0297 

SUB 

A 

0502  29 

0298  SHF1 

DAD 

H 

IF  NO  CARRY, 

RETURN  CDE 

ELSE  SHIFT  RIGHT  ONE 
INCLUDING  THE  CARRY 


ADJUST  EXPONENT 


IF  DE'HL, 

THEN  NORM (B: HL-DEJ 


ELSE  NORM (C : DE-HL) 


IF  DEOO, 

NORMALIZE  WITH  C 
IF  HL-DE=0,  RETURN 


DE  =  DE  -  HL 


USE  BHL’S  EXPONENT 
AND  SHIFT  IN  ZEROES 
NORMALIZE 

TINES 

IF  IT  8,  60  NON 
SHIFT  8 

IF  EXACTLY  B.  RETURN 
ELSE  DO  SECOND  8 
SAVE  EXPONENTS 
SAVE  INVERTED  COUNTER 
CLEAR  ACCUN 
SHIFT  LEFT 
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0503  3F 

0299 

ADC 

A 

INTO  A  FROM  HL 

0504  04 

0300 

INR 

E 

COUNT  UF  TO  0 

0505  C2  02 

05 

0301 

JNZ 

SHF1 

0509  Cl 

0302 

POP 

B 

RESTORE  EXPS 

050?  oC 

0303 

MOV 

l,h 

059A  67 

0304 

MOV 

H,  A 

050E  C9 

0305 

RET 

• 

050C 

0306  1 

050 C  EE 

0307  SWITCH  XCHG 

, 

CDE=  BHL 

050D  48 

0308 

MOV 

r  R 

050E  C? 

0309 

RET 

• 

050F 

0310  1 

050F 

0311  t  CONVERT  32 

BIT  DATA  TO  F.P.  FORMAT 

050F 

0312  t 

050F  7A 

0313  FLT32 

MOV 

A,  D 

IF  POSITIVE,  JUST  NORM 

0510  67 

0314 

ORA 

A 

0511  OE  60 

0315 

MV  I 

C, 64+32  WITH  LSB=2I*0  TO  BEGIN 

0513  F2  21 

05 

0316 

JP 

NORM 

0516  CO  69 

06 

0317 

call 

NEG32 

NEGATE  DEHL 

0519  CD  21 

05 

0318 

CALL 

NORM 

NOW  NORMALIZE 

05 1C  79 

031? 

MOV 

A,  C 

AND  NEGATE  F? 

0510  F6  80 

0320 

OR  1 

BOH 

05 IF  4F 

0321 

MOV 

C.A 

0520  C9 

0322 

RET 

, 

0521 

0323  1 

0521 

0324  1  NORMALIZE  C : DEHL  TO  F.P.  NORMAL  FORM 

0521 

0325  t 

0521  79 

0326  NORM 

MOV 

H,C 

IF  C  NEGATIVE,  TRAP  IT 

0522  B7 

0327 

ORA 

A 

0523  F2  2F 

05 

0323 

JP 

NORMP 

0526  E6  7F 

0329 

AN  I 

7FH 

0528  4F 

0330 

MOV 

C ,  A 

052?  CD  2F 

05 

0331 

CALL 

NORMP 

052C  C3  F8 

03 

0332 

JMP 

NEBFP 

AND  NEG  LATER 

052F 

0333  » 

052F  7A 

0334  NORMP 

MOV 

A.D 

IF  WITHIN  8  BITS.  GO  NOW 

0530  B7 

0335 

ORA 

A 

0531  C2  59 

05 

0336 

JNZ 

NQRM1 

0534  B3 

0337 

ORA 

E 

IF  WITHIN  16,  USE  EHL 

0535  C2  4E 

05 

0338 

JNZ 

NRMEHL 

0538  B4 

0339 

ORA 

H 

IF  WITHIN  24,  USE  HL 

0539  C2  48 

05 

0340 

JNZ 

NRMHL 

053C  65 

0341 

ORA 

L 

IF  JUST  L,  USE  IT 

05 3D  C2  42 

05 

0342 

JNZ 

NRML 

0540  4A 

0343 

MOV 

C.D 

ELSE  CDE=0 

9541  C9 

0344 

RET 

. 

0542 

0345  1 

0542  55 

0346  NRML 

MOV 

D,L 

LOO  FOR  3  BYTES 

0543  06  18 

0347 

MV  I 

B,24 

ADJUST  EXP  BY  24  BITS 

0545  C3  53 

05 

0348 

•IMP 

AJEXP 
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0548  EB 

0349  NRHHL 

XCHG 

. 

HLO  FOR  3BYTES 

0549  06  10 

0350 

MV  I 

B,  16 

ADJUST  EXP  16 

054B  C3  53 

05 

0351 

JHP 

AJEXP 

054E  53 

0352  NRHEHL  HOV 

D,E 

SHIFT  EHL  TO  DEH 

054F  5C 

0353 

HOV 

E,H 

0550  65 

0354 

HOV 

H,L 

0551  06  08 

0355 

MVI 

B,8 

ADJUST  B  BITS 

0553  79 

0356  AJEXP 

HOV 

A.C 

EXP=EXP-B 

0554  90 

0357 

SUB 

B 

0555  4F 

035B 

HOV 

C,  A 

IF  PROBLEM,  THEN  UNDER 

0556  DA  70 

05 

0359 

JC 

UNDERFLOW 

0559 

0360  1 

0559 

0361  1  BIT 

BY  BIT  NORMALIZATION 

0559 

0362  1 

0559  7A 

0363  N0RH1 

HOV 

A,  D 

AHL=DEH 

055A  6C 

0364 

HOV 

L,H 

055B  63 

0365 

HOV 

H,E 

055C  B7 

0366  NCHK 

ORA 

A 

SHIFT  AHL  TILL  NORHED 

055D  FA  66 

05 

0367 

JH 

NRHFIN 

0560  OD 

036B  NCHK1 

DCR 

C 

EXP<-EXP-1 

0561  29 

0369 

DAD 

H 

0562  BF 

0370 

ADC 

A 

0563  F2  60 

05 

0371 

JP 

NCHK1 

0566  57 

0372  NRMFIN 

HOV 

D,  A 

DE=AH 

0567  5C 

0373 

HOV 

E,H 

056B  7D 

0374 

HOV 

AjL 

IF  MSB (L)=l,  ROUND  OFF  DE 

0569  07 

0375 

RLC 

. 

056A  DC  4D 

04 

0376 

CC 

ROND 

056D  79 

0377 

MOV 

A,C 

IF  EXP  POSITIVE,  OK 

056E  B7 

037B 

ORA 

A 

056F  FO 

0379 

RP 

• 

0570 

0380  t 

0570 

0381  *  ERRORS  :  UNDERFLOW 

AND  OVERFLOW 

0570 

0382  t 

0570 

0383  UNDERFLOW  EOU  % 

0570  OE  00 

03B4  RETO 

HVI 

C,0 

RETURN  CDE=0 

0572  11  00 

00 

0385 

LX  I 

D,0 

0575  C9 

0386 

RET 

• 

0576 

03B7  1 

0576  FE  CO 

0388  ERCHK 

CPI 

OCOH 

IF  BETWEEN  OBOH  AND  OBFH 

057B  02  70 

05 

0389 

JNC 

UNDERFLOW  THEN  UNDERFLOW,  ELSE  OVER 

057B 

0390  1 

057B  OE  7F 

0391  OVERFLOW  MV I 

C,7FH 

RETURN  CDE=HAX IHUH 

057D  11  FF 

FF 

0392 

LXl 

D*"l 

05B0  C9 

0393 

RET 

. 

05B1 

0394  1 

05B1  78 

0395  STRIP 

HOV 

A ,  B 

REMOVE  SIGNS  FROM  B 

05B2  E6  7F 

0396 

AN  I 

7FH 

0584  47 

0397 

HOV 

8,  A 

0585  79 

0398 

HOV 

A,  C 
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0586  E6  7F 

0399 

ANI 

7FH 

0586  4F 

0400 

NOV 

C ,  A 

0589  C9 

0401 

RET 

, 

058A 

0402  1 

058A 

0403  1  FIX32:  FLT  TO  FIX  CONVERSION 

058  A 

0404  1 

058A  79 

0405  FIX32 

NOV 

A ,  C 

IF  NEGATIVE,  INVERT 

0588  EE  80 

0406 

XRI 

80H 

RESULTS 

0580  FA  97  05 

0407 

JH 

FIXPOS 

0590  4F 

0408 

NOV 

C,A 

0591  CO  97  05 

0409 

CALL 

FIXPOS 

0594  C3  69  06 

0410 

JHP 

NE632 

0597 

0411  1 

0597  E6  7F 

0412  FIXPOS  ANI 

7FH 

IF  CDE<1,  RETURN(O) 

0599  FE  41 

0413 

CPI 

41H 

0598  DA  C5  05 

0414 

JC 

ZEROH 

059E  FE  60 

0415 

CPI 

60H 

IF  >21131,  MAX  IT 

OSAO  02  CC  05 

0416 

JNC 

HAXDH 

05A3 

0417  1 

05A3  21  00  00 

0418 

LX  I 

H,  0 

ELSE  SHIFT  MANTISSA 

05A6  06  50 

0419 

SUI 

40H+16 

IF  21116,  QUIT 

05A8  C8 

0420 

RZ 

, 

05A9  EE 

0421 

XCHG 

. 

DEHL=00XX,  READY  TO  SHIFT 

05AA  02  BC  05 

0422 

JNC 

SHDH 

IF  EXP  WAS  51  TO  5F,  GO 

OSAO  C6  10 

0423 

ADI 

16 

ELSE  41-4F,  SHIFT  THEN 

05AF  CD  BC  05 

0424 

CALL 

SHDH 

DIVIDE  8Y  21116 

0582  E8 

0425 

XCHG 

0583  I 1  00  00 

0426 

LXI 

0,0 

0586  C9 

0427 

RET 

• 

0587 

0428  1 

0587  29 

0429  SHCAR 

DAD 

H 

SHIFT  OE  PART 

0588  2C 

0430 

I  NR 

L 

AND  PUT  IN  CARRY 

0589  E8 

0431  DECRA 

XCHG 

a 

SWAP  BACK  HL 

058A  30 

0432 

OCR 

A 

IF  C0UNT=0,  QUIT 

0588  C8 

0433 

RZ 

a 

058C  29 

0434  SHDH 

DAD 

H 

SHIFT  HL  ONE  8IT 

0580  E8 

0435 

XCH6 

a 

IF  CARRY,  THEN. 

05BE  DA  B7  05 

0436 

JC 

SHCAR 

UPDATE  DE  WITH  CARRY 

05CI  29 

0437 

DAD 

H 

ELSE  WITHOUT  CARRY 

05C2  C3  B9  05 

0438 

JHP 

DECRA 

05C5 

0439  1 

05C5  I 1  00  00 

O', 40  ZEROH 

LXI 

0,0 

DEHL=Q 

05C8  21  00  00 

0441 

LXI 

H,0 

05CB  C9 

0442 

RET 

a 

05CC  11  FF  7F 

0443  HAXDH 

LXI 

D.7FFFH  DEHL=HAXIHUH 

05CF  21  FF  FF 

0444 

LXI 

Hf-1 

0502  C9 

0445 

RET 

a 

0503 

0446  1 

0503 

0447  I  SQUARE  ICDEI 

0503 

0448  t 
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0503  7A 

0449  FSQUA  MOV 

A,  D 

CHECK  FOR  0 

0504  B7 

0450 

ORA 

A 

0505  CB 

0451 

RZ 

, 

0506  41 

0452 

MOV 

B,C 

BHL=CDE 

0507  62 

0453 

MOV 

H.D 

05DB  6B 

0454 

MOV 

L,E 

0509  C3  ED  03 

0455 

JMP 

FMS33 

05DC 

0456  t 

05DC  7A 

0457  FSQRT  MOV 

A,  D 

IF  ZERO,  QUIT 

0500  B7 

045B 

ORA 

A 

05DE  CB 

0459 

.  RZ 

, 

05DF  79 

0460 

MQV 

A,  C 

IF  ODD  EXPONENT,  SHIFT 

05E0  E6  01 

0461 

ANI 

1 

05E2  C4  CA  04 

0462 

CNZ 

RITE1 

05E5  C5 

0463 

PUSH 

8 

SAVE  EXPONENT 

05E6  CD  44  06 

0464 

CALL 

S6R2 

DEsDEttl/2 

05E9  Cl 

0465 

POP 

B 

05EA  79 

0466 

MOV 

A,  C 

DIVIDE  EXP  BY  2 

05EB  OF 

0467 

RRC 

05EC  C6  20 

046B 

AD! 

20H 

IN  EXCESS  64 

05EE  4F 

0469 

MOV 

C ,  A 

05EF  C9 

0470 

RET 

. 

05F0 

0471  1 

05F0 

0472  1 

16  X  16  MULTIPLY  UNSIGNED.  OPTIMIZED  FOR  F.P. 

05F0 

0473  1 

CAHLI  =  CHLI  t  (DEI  TOP  3  BYTES 

05F0 

0474  1 

05F0  97 

0475  HU22F  SUB 

A 

IF  E=0,  DO  SHORT  MULT 

05F1  BB 

0476 

CMP 

E 

05F2  CA  08  06 

0477 

JZ 

SHORD 

05F5  85 

0478 

ORA 

L 

IF  Ls0,  DO  SHORT  WITH  H 

05F6  CA  09  06 

0479 

JZ 

SHORH 

05F9  E5 

0480 

PUSH 

H 

AHL*  LIDE 

05FA  CD  OA  06 

0481 

CALL 

MU21 

05FD  6C 

04B2 

MOV 

L>H 

THROW  AWAY  LS  BYTE 

05FE  67 

0483 

MOV 

H,  A 

SAVE  UPPER  BYTES 

05FF  E3 

04B4 

XTHL 

( 

SAVE  EM,  GET  MS  BYTE  OF  1ST 

0600 

04B5  t 

0600  7C 

0486 

MOV 

A,H 

AHL=MSB»DE 

0601  CD  OA  06 

04B7 

CALL 

MU21 

0604  01 

04B8 

POP 

D 

GRAB  THE  TWO  STORED 

0605  19 

04B9 

DAD 

D 

ADD  PARTIAL  RESULTS 

0606  BB 

0490 

ADC 

B 

FOR  THREE  BYTES  (AHL) 

0607  C9 

0491 

RET 

■ 

0608 

0492  1 

0608  EB 

0493  SHORD  ICHG 

• 

SHORT  MULT 

0609  7C 

0494  SHORH  MQV 

A,H 

JUST  MULT  HIDE 

060A 

0495  I 

060A 

0496  I 

16  I  B  MULTIPLY  UNSIGNED 

060A 

0497  I 

CAHLI  <- 

A  t  [DEI 

060A 

0498  I 

TAKES  198  TO  297  CYCLES 
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060A 

0499  I 

060A  21  00 

00 

0500  MU21 

LXI 

H,0 

060D  44 

0501 

nov 

8,  H 

060E 

0502  t 

060E  87 

0503  HULTX 

ADD 

A 

060F  D2  14 

06 

0504 

JNC 

X2 

0612  19 

0505 

DAD 

D 

0613  88 

0506 

ADC 

8 

0614  29 

0507  X2 

DAD 

H 

0615 

0508  t 

0615  8F 

0509 

ADC 

A 

0616  D2  IB 

06 

0510 

JNC 

X4 

0619  19 

0511 

DAD 

D 

061A  88 

0512 

ADC 

B 

061 B  29 

0513  X4 

DAD 

H 

061C 

0514  1 

061C  8F 

0515 

ADC 

A 

061D  D2  22 

06 

0516 

JNC 

X8 

0620  19 

0517 

DAD 

D 

0621  88 

0518 

ADC 

B 

0622  29 

0519  X8 

DAD 

H 

0623 

0520  1 

0623  8F 

0521 

ADC 

A 

0624  D2  29 

06 

0522 

JNC 

X10 

0627  19 

0523 

DAD 

D 

0628  B8 

0524 

ADC 

8 

0629  29 

0525  X10 

DAD 

H 

062A 

0526  1 

062A  8F 

0527 

ADC 

A 

0628  D2  30 

06 

0528 

JNC 

X20 

062E  19 

0529 

DAD 

D 

062F  88 

0530 

ADC 

8 

0630  29 

0531  X20 

DAD 

H 

0631 

0532  I 

0631  8F 

0533 

ADC 

A 

0632  D2  37 

06 

0534 

JNC 

X40 

0635  19 

0535 

DAD 

D 

0636  88 

0536 

ADC 

B 

0637  29 

0537  X40 

DAD 

H 

0638 

0538  1 

0638  8F 

0539 

ADC 

A 

0639  D2  3E 

06 

0540 

JNC 

X80 

063C  19 

0541 

DAD 

D 

063D  88 

0542 

ADC 

B 

063E  29 

0543  X80 

DAD 

H 

063F 

0544  1 

063F  8F 

0545 

ADC 

A 

0640  DO 

0546 

RNC 

0641  19 

0547 

DAD 

D 

0642  88 

0548 

ADC 

B 

ZERO  RESULT  RE6 
8<-0 

SHIFT  MSS  TO  CARRY 

IF  C=l,  THEN  ADD  IDE3 
IF  OVERFLOW, BUMP  MSBYTE 
SHIFT  FOR  NEXT  TEST 

AND  SO  ON 
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0643  C9 

0549 

RET 

0644 

0550  » 

0644 

0551  *  INTEGER  SQUARE  ROOT  OF  DE 

0644 

0552  1  1 

t\] 

0644  01  00  80 

0553  SQR2 

LX  I 

B, 8000H  6UESS=80,  RQ0T0=0 

0647  CD  54  06 

0554  S8RA1 

CALL 

APPX 

CHECK  APPROXIMATION 

064A  78 

0555 

HOV 

A, 8 

AND  SHIFT  APPX  8IT 

0648  OF 

0556 

RRC 

064C  47 

0557 

NOV 

8,  A 

064D  D2  47  06 

0558 

JNC 

SSRA1 

0650  51 

0559 

HOV 

D,C 

DE=RESULT 

0651  IE  00 

0560 

HVI 

E»  0 

0653  C9 

0561 

RET 

, 

0654 

0562  1 

0654  05 

0563  APPX 

PUSH 

D 

SAVE  X 

0655  70 

0564 

HOV 

A, 8 

TRY  NEW  TEST  SIT 

0656  81 

0565 

ADD 

C 

0657  5F 

0566 

HOV 

E*  A 

0650  16  00 

0567 

HVI 

D,  0 

06 5 A  C5 

0568 

PUSH 

8 

SAVE  BC 

0658  CD  OA  06 

0569 

CALL 

HU21 

AHL=AIDE 

065E  Cl 

0570 

POP 

8 

065F  D1 

0571 

POP 

D 

COHPARE  TO  X 

0660  7B 

0572 

HOV 

A,E 

IF  X  <HL  THEN  TOO  818 

0661  95 

0573 

SU8 

L 

0662  7A 

0574 

HOV 

A,  D 

0663  9C 

0575 

S88 

H 

0664  D8 

0576 

RC 

t 

0665  78 

0577 

HOV 

A, 8 

ELSE  ADD  TEST  SIT  TO  C 

0666  81 

0570 

ADD 

C 

0667  4F 

0579 

HOV 

C ,  A 

0660  C9 

0500 

RET 

• 

0669 

0501  1 

0669  CD  77  06 

0582  NEG32 

CALL 

INV16 

INVERT  DEHL 

066C  E0 

0503 

XCHG 

066D  CD  77  06 

0504 

CALL 

INV16 

0670  E0 

0585 

XCHG 

a 

0671  23 

0506 

INX 

H 

AND  ADD  1 

0672 

0507  1 

0672  7C 

0588 

HOV 

A,  H 

IF  HL=0,  INCR  DE 

0673  B5 

0589 

ORA 

L 

0674  CO 

0590 

RN7 

, 

0675  13 

0591 

INX 

D 

0676  C9 

0592 

RET 

. 

0677 

0593  1 

0677  7C 

0594  INV16 

HOV 

A ,  H 

INVERT  HL 

0670  2F 

0595 

CHA 

0679  67 

0596 

HOV 

H ,  A 

067A  7D 

0597 

HOV 

A,L 

0670  2F 

0598 

CHA 
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0599 

nov  l,o 

067D  C9 

0600 

RET 

067E 

0601  NEXT 

E6U  $ 

067E 

CON  NEXT 
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0000 

0001  » 

0000 

0002  »  CRRES  FLIGHT  SOFTWARE — MATRIX  SOLVER 

0000 

0003  »  WRITTEN  8Y  PETER  R  HARVEY 

0000 

0004  1  FILE 

:  MATRIX. A 

0000 

0005  1 

0000 

0006  HATR1 

EQU 

NEXT 

0000 

0007 

ORG 

MATR1 

067E 

0008 

CON 

IMATX 

1NIT  MATRIX  ADDR/S1ZE 

067E 

0009 

COM 

SOLVE 

SOLVE  MATRIX 

067E 

0010  1 

067E 

0011  <  INITIALIZE 

MATRIX  SIZE  AND  ADDRESS 

067E 

0012  1 

067E  22  92  24 

0013  1MATX 

SHLD 

MATRX 

SAVE  ADDRESS  OF  MATRIX 

0681  E8 

0014 

XCHG 

0682  22  94  24 

0015 

SHLD 

RESULT 

SAVE  ADDRESS  OF  RESULT 

0685  32  90  24 

0016 

STA 

N 

SAVE  SIZE 

0688  3C 

0017 

INR 

A 

SAVE  SIZE+1 

0689  32  91  24 

0018 

STA 

NP1 

068C  C9 

0019 

RET 

068 D 

0020  < 

068D 

0021  1  MATRIX  SOLVER 

068D 

0022  1  RETURNS  CARRY  SET 

IF  MATRIX  ERROR 

068D 

0023  1 

0680  3E  01 

0024  SOLVE 

MV1 

Ajl 

FOR  J:=l  TO  N-l 

068F  32  97  24 

0025 

STA 

J 

0692  CD  FF  06 

0026  SOLI 

CALL 

LOCNZ 

LOCATE  NON-ZERO  IN  COL 

0695  D8 

0027 

RC 

. 

IF  NOT  POSS,  ERROR 

0696  CD  5D  07 

0028 

CALL 

SU8R0NJ  SUBTRACT  JTH  FROM  OTHERS 

0699  21  97  24 

0029 

LX1 

H,J 

J=J+1 

069C  34 

0030 

INR 

M 

069D  3A  90  24 

0031 

LDA 

N 

IF  N=J,  SUIT 

06A0  BE 

0032 

CMP 

H 

06A1  C2  92  06 

0033 

JNZ 

SOLI 

06A4 

0034  1 

06A4 

0035  1  CALCULATE 

SOLUTION  FROM  A  DIAGONAL  MATRIX 

06A4 

0036  1 

06A4  3A  90  24 

0037 

LDA 

N 

FOR  M2:*N  DONNTO  1 

06A7  32  9A  24 

0038  CALI 

STA 

M2 

06AA  67 

0039 

MOV 

H,A 

LOAD  ELEMENT  (H2,N+1) 

06A8  3 A  91  24 

0040 

LDA 

NP1 

06AE  6F 

0041 

MOV 

Lf  A 

06AF  CD  D7  07 

0042 

CALL 

LODZ 

0682 

0043  1 

06B2  3A  9A  24 

0044 

LDA 

M2 

DIVIDE  BY  ELEMENT  (M2, M2) 

06B5  6F 

0045 

MOV 

L,A 

06B6  67 

0046 

MOV 

H,A 

06B7  CD  E3  07 

0047 

CALL 

DIVZ 

068A 

0048  1 

06BA  2A  94  24 

0049 

LHLD 

RESULT 

STORE  IN  X  <M2) 
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06BD  CD  BC  07 

0050 

CALL 

REFXM2 

06C0  CD  DA  03 

0051 

CALL 

STOFP 

06C3 

0052  1 

06C3 

0053  l  IF  TOP  ROW, 

THEN  WE’RE  FINISHED. 

06C3 

0054  t  ELSE  UPDATE  THE  CONSTANTS  ON  THE  RIBHT  SIDE 

06C3 

0055  1 

06C3  3A  9A  24 

0056 

LDA 

M2 

IF  M2=l,  SUIT 

06C6  3D 

0057 

DCR 

A 

06C7  CB 

0058 

RZ 

, 

06C8  32  96  24 

0059  UPCON 

STA 

S 

FOR  Q=M2-1  DOWNTQ  1 

06CB  67 

0060 

MOV 

H,  A 

Z(Q,N+1)=Z(0,N+1)-X(M2)I 

06CC  3A  9A  24 

0061 

LDA 

M2 

06CF  6F 

0062 

MOV 

L,A 

06D0  CD  D7  07 

0063 

CALL 

LODZ 

06D3 

0064  t 

06D3  2A  94  24 

0065 

LHLD 

RESULT 

MULTIPLY  8Y  X(M2> 

06D6  CD  BC  07 

0066 

CALL 

REFXM2 

06D9  CD  EO  03 

0067 

CALL 

FMUL 

06DC 

0068  t 

06DC  79 

0069 

MOV 

A ,  C 

CHANGE  SI6N  OF  RESULT 

06 DD  EE  80 

0070 

ZRI 

80H 

06DF  4F 

0071 

MOV 

C,  A 

06E0 

0072  t 

06E0  3A  96  24 

0073 

LDA 

Q 

SUBTRACT  FROM  Z(0,N+1) 

06E3  67 

0074 

MOV 

H,  A 

06E4  3A  91  24 

0075 

LDA 

NP1 

06E7  6F 

0076 

MOV 

L,A 

06E8  E5 

0077 

PUSH 

H 

06E9  CD  E9  07 

0078 

CALL 

ADZ 

06EC  El 

0079 

POP 

H 

STORE  AT  Z(B,N+1) 

06ED  CD  DD  07 

0080 

CALL 

STRZ 

06F0 

0081  1 

06F0  3A  96  24 

0082 

LDA 

8 

0=8-1  UNTIL  0 

06F3  3D 

0083 

DCR 

A 

06F4  C2  CB  06 

0084 

JNZ 

UPCON 

06F7 

0085  1 

06F7  3A  9A  24 

0086 

LDA 

M2 

H2=H2-1 

06FA  3D 

0087 

DCR 

A 

UNTIL  0 

06F8  C2  A7  06 

0088 

JNZ 

CALI 

06FE  C9 

0089 

RET 

, 

06FF 

0090  1 

06FF 

0091  t  LOCATE  A  NON-ZERO 

IN  COLUMN  J 

06FF 

0092  1 

06FF  3A  97  24 

0093  LOCNZ 

LDA 

J 

FOR  6:=J  TO  N 

0702  32  96  24 

0094  LOCI 

STA 

8 

0705  67 

0095 

MOV 

H,A 

IS-ZERO  Z(8,J1? 

0706  3A  97  24 

0096 

LDA 

J 

0709  6F 

0097 

MOV 

L,A 

07 OA  CD  EF  07 

0098 

CALL 

ISZRO 

07 OD  C2  ID  07 

0099 

JNZ 

SWAPROW  NO.  80 
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0710  3A  96  24 
0713  3C 
0714  21  91  24 
0717  BE 
07  IB  C2  02  07 
071B  37 
07 1C  C9 
0710 
0710 
0710 

0710  3A  96  24 
0720  21  97  24 
0723  BE 
0724  C8 
0725  7E 
0726  32  9B  24 
0729  6F 
072A  3A  96  24 
0720  67 
072E  CD  CB  07 
0731  EB 
0732  3A  97  24 
0735  67 
0736  3A  9B  24 
0739  6F 
073A  CD  CB  07 
0730  CD  4F  07 
0740 

0740  3A  9B  24 
0743  3C 
0744  21  91  24 
0747  BE 
074B  DA  26  07 
074B  CA  26  07 
074E  C9 
074F 

074F  0E  03 
0751  1A 
0752  46 
0753  EB 
0754  12 
0755  70 
0756  23 
0757  13 
0758  00 
075g  C2  51  07 
075C  C9 
0750 
0750 
0750 
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0100 

LOA 

Q 

YES.  C=Q+ 1 

0101 

1NR 

A 

0102 

LX  1 

H,  NPl 

UNTIL  fl=N+l 

0103 

CMP 

H 

0104 

JN2 

LOCI 

0105 

STC 

a 

ELSE  RETURN  CARRY 

0106 

RET 

, 

0107  1 

010B  t  SNAP  STH  RON  WITH  JTH  RON 

0109  1 

0110  SNAPRON  LDA 

Q 

IF  Q'J,  WE’RE  DONE 

0111 

LX1 

H,J 

0112 

CMP 

M 

0113 

RZ 

, 

0114 

MOV 

a  ,  n 

FOR  KLM: -J  TO  NPl 

0115  SNP1 

STA 

KLM 

0116 

MOV 

L,A 

SNAP(Z(Q,KLM),Z(J,I 

0117 

LDA 

Q 

0118 

MOV 

H,A 

0119 

CALL 

REFZ 

0120 

XCHB 

0121 

LDA 

J 

0122 

MOV 

H,  A 

0123 

LDA 

KLM 

0124 

MOV 

L|A 

0125 

CALL 

REFZ 

0126 

CALL 

SNAP3 

0127  1 

0128 

LDA 

KLM 

0129 

1NR 

A 

0130 

LX  1 

H,  NP 1 

0131 

CMP 

M 

0132 

JC 

SNP1 

0133 

JZ 

5NP1 

0134 

RET 

. 

0135  1 

0136  SNAP3 

HV1 

C,  3 

SNAP  F.P.  BTYS 

0137  SNPLP 

LDAX 

0 

GRAB  DATA 

013B 

MOV 

B,H 

FROM  BOTH 

0139 

XCH6 

0140 

STAX 

0 

STORE  FROM  BOTH 

0141 

MOV 

M,B 

0142 

1NX 

H 

0143 

1NX 

0 

0144 

OCR 

C 

0145 

JNZ 

SNPLP 

0146 

RET 

a 

0147  I 

014B  I  SUBTRACT  JTH  RON  FROM  SUBSEQUENT  RONS 
0149  I 
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0750 

3A 

97 

24 

0150  SUBROWJ  LDA 

J 

FOR  K=J+1  TO  N 

0760 

3C 

0151 

1NR 

A 

0761 

32 

98 

24 

0152  SUBK1  STA 

K 

0764 

67 

0153 

MOV 

H,  A 

LOAD  Z<K,J) 

0765 

3A 

97 

24 

0154 

LOA 

J 

0768 

6F 

0155 

HOV 

L,A 

0769 

CD 

07 

07 

0156 

CALL 

LOOZ 

076C 

3A 

97 

24 

0157 

LDA 

J 

DIVIDE  BY  Z(J,J) 

076F 

67 

0158 

HOV 

H,  A 

0770 

6F 

0159 

HOV 

L»  A 

0771 

CD 

E3 

07 

0160 

CALL 

01VZ 

0774 

21 

9C 

24 

0161 

LX  I 

H, RATIO  STORE  IN  RATIO 

0777 

CO 

OA 

03 

0162 

CALL 

STOFP 

077A 

0163  t 

077A 

3A 

97 

24 

0164 

LOA 

J 

FOR  F=J  TO  N+l 

077D 

32 

99 

24 

0165  SUBL1  STA 

P 

0780 

6F 

0166 

HOV 

L»  A 

LOAD  Z(J,P) 

0781 

3A 

97 

24 

0167 

LOA 

J 

0784 

67 

0168 

HOV 

H,  A 

0785 

CO 

07 

07 

0169 

CALL 

LOOZ 

0788 

21 

9C 

24 

0170 

LX  I 

H, RATIO  HULT  BY  RATIO 

078B 

CO 

EO 

03 

0171 

CALL 

FHUL 

078E 

79 

0172 

HOV 

A ,  C 

CHANGE  S16N 

078F 

EE 

BO 

0173 

XR1 

8  OH 

0791 

4F 

0174 

HOV 

C,A 

0792 

0175  1 

0792 

3A 

98 

24 

0176 

LDA 

K 

AOD  TO  Z(K,P) 

0795 

67 

0177 

HOV 

H,  A 

0796 

3A 

99 

24 

0178 

LOA 

P 

0799 

6F 

0179 

HOV 

Lj  A 

079A 

E5 

0180 

PUSH 

H 

079B 

CD 

E9 

07 

0181 

CALL 

AOZ 

079E 

El 

0182 

POP 

H 

REPLACE  Z (K,P) 

079F 

CO 

DD 

07 

0183 

CALL 

STRZ 

07A2 

0184  « 

07A2 

3A 

99 

24 

0185 

LOA 

P 

P--P+1 

07A5 

3C 

0186 

I  NR 

A 

07A6 

21 

91 

24 

0187 

LX1 

H,NP1 

IF  P<N+1,  OK 

07A9 

BE 

0183 

CHP 

H 

07AA 

OA 

70 

07 

0189 

JC 

5U8L1 

07AB 

CA 

70 

07 

0190 

J! 

SUBL1 

0780 

0191  » 

07B0 

3A 

98 

24 

0192 

LOA 

K 

K--KM 

07B3 

3C 

0193 

INF. 

A 

07B4 

21 

91 

24 

0194 

LX  1 

H,  NP 1 

UNTIL  K=NM 

07B7 

BE 

0195 

CHP 

H 

07B8 

C2 

61 

07 

0196 

JNZ 

SU8K1 

07BB 

C9 

0197 

RET 

* 

07BC 

0198  t 

07BC 

2A 

94 

24 

0199  REFKH2  LHLD 

RESULT 
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07BF  3A  9A  24 

0200 

LDA 

M2 

07C2  3D 

0201 

DCR 

A 

07C3  47 

0202 

MOV 

B,A 

07C4  87 

0203 

ADD 

A 

07C5  80 

0204 

ADD 

B 

07C4  DF 

0205 

RST 

REF/8 

07C7  C9 

0204 

RET 

07C8 

0207  * 

07C8 

0208  1  MATRIX  UTILITIES 

07C8 

0209  1  H=RON,  L=CQL 

07C8 

0210  1  IN  A  4X5  ARRAY 

07C8 

0211  1 

07C8  25 

0212  REFZ 

DCR 

H 

07C9  2D 

0213 

DCR 

L 

07CA  7C 

0214 

MOV 

A,  H 

07CB  87 

0215 

ADD 

A 

07CC  87 

0214 

ADD 

A 

07CD  84 

0217 

ADD 

H 

07CE  85 

0218 

ADD 

L 

07CF  6F 

0219 

MOV 

l.A 

07D0  87 

0220 

ADD 

A 

07D1  85 

0221 

ADD 

L 

07D2  2A  92  24 

0222 

LHLD 

MATRX 

07D5  DF 

0223 

RST 

REF/8 

07D6  C9 

0224 

RET 

• 

07D7 

0225  » 

07D7  CD  C8  07 

0224  LODZ 

CALL 

REFZ 

07DA  C3  D4  03 

0227 

JNP 

LODFP 

07DD  CD  C8  07 

0228  STRZ 

CALL 

REFZ 

07E0  C3  DA  03 

0229 

JMP 

STOFP 

07E3  CD  C8  07 

0230  DIVZ 

CALL 

REFZ 

07E6  C3  OB  04 

0231 

JMP 

FDIV 

07E9  CD  C8  07 

0232  ADZ 

CALL 

REFZ 

07EC  C3  9F  04 

0233 

JMP 

FADD 

07 EF  CD  D7  07 

0234  ISZRO 

CALL 

LODZ 

07F2  7A 

0235 

MOV 

A,  D 

07F3  B7 

0236 

ORA 

A 

07F4  C8 

0237 

RZ 

a 

07F5  79 

0238 

MOV 

A,  C 

07F4  E6  7F 

0239 

AN  I 

7FH 

07F8  FE  37 

0240 

CPI 

4IH-10 

07FA  DO 

0241 

RNC 

. 

07FB  97 

0242 

SUB 

A 

07FC  C9 

0243 

RET 

07FD 

0244  NEXT 

ESU 

$ 

07  FD 

COM 

NEXT 

07FD 

0245  t 

07FD 

0244  1  VARIABLES 

07FD 

0247  1 

07FD 

0248 

ORG 

MATRAM 

R0NI5  ACROSS 

♦COL  NUMBER  (0  THRU  4) 
TIMES  FLT  13) 

SET  ADDRESS  OF  ARRAY  Z 


RETURN(Z)  IF  REALLY  ZERO 


OR  IF  UNDER  1/21110 
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2490 

0249  N 

DS 

1 

SIZE  OF  ARRAY  TO  SOLVE 

2491 

0250  NP1 

DS 

1 

SIZE+1 

2492 

0251  MATRX 

DS 

2 

MATRIX  STARTING  ADDRESS 

2494 

0252  RESULT  DS 

2 

RESULT  ADDRESS 

2496 

0253  0 

DS 

1 

TEHPORARIES 

2497 

0254  J 

DS 

1 

2493 

0255  K 

DS 

1 

2499 

0256  P 

DS 

1 

249A 

0257  N2 

DS 

1 

249B 

0258  KLH 

DS 

1 

24  9C 

025*4  RATIO 

DS 

4 
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0000 

0001  t 

0000 

0002  t  CRRES  FLIGHT  SOFTWARE— TRIG  FUNCTION 

0000 

0003  t  FILE 

:  TRIG. A 

0000 

0004  1 

0000 

0005  NP01NTS  EQU 

32 

0000 

0006  FLT 

EQU 

3 

0000 

0007  1 

0000 

0008  TRIG 

EQU 

NEXT 

0000 

0009 

0R6 

TRIG 

07FD 

0010 

con 

SIN 

07FD 

0011 

con 

COS 

07FD 

0012 

con 

SINSQ 

07FD 

0013 

con 

COSSQ 

07FD 

0014 

con 

SNCS 

07FD 

0015  1 

07FD  21  91  08 

0016  SNCS 

LX1 

H, SNCST  REFER  TO  SINICOS 

0800  FE  33 

0017 

CPI 

SNCSX-SNCST  IF  IN  TABLE  OK 

0802  DA  07  08 

0018 

JC 

REFQK 

0805  D6  30 

0019 

SUI 

NP01NTS/24FLT  ELSE  BEGIN  AT 

0807  DF 

0020  REFQK 

RST 

REF/8 

0808  C9 

0021 

RET 

0809 

0022  t 

0809 

0023  1  SIN  SQUARED/COSINE  SQUARED 

0809 

0024  1 

0809  CD  16  08 

0025  SINSQ 

CALL 

SIN  REFER  TO  SINE 

080C  C3  12  08 

0026 

JHP 

ADOF 

080F  CD  ID  08 

0027  COSSQ 

CALL 

COS  REFER  TO  COSINE 

0812  3E  33 

0028  ADOF 

MV  I 

A, C0S2T-C0STAB  ADO  OFFSET 

0814  DF 

0029 

RST 

REF/B 

0815  C9 

0030 

RET 

. 

0816 

0031  t 

0816 

0032  4  SIN  AND  COS  ROUTINES. 

0816 

0033  t  ON  ENTRY: 

A=0  THRU  31  TIMES  FLOAT 

0816 

0034  t  ON  EXIT  : 

HL-)  SIN  OR  COSINE  F.P.  VALUE 

0816 

0035  1 

0816  D6  18 

0036  SIN 

SUI 

NP0INTS/44FLT  REMOVE  1/4  PHASE 

0818  D2  ID  08 

0037 

JNC 

COS  ANO  USE  COSINE  ROUTINE 

08 IB  C6  60 

0038 

ADI 

NP0INTS4FLT  MOVE  TO  END  OF  PERIOD 

081 D 

0039  1 

08ID  21  2B  08 

0040  COS 

LX  I 

H, COSTAB  REFERENCE  COSINE  TABLE 

0820  FE  33 

0041 

CPI 

C0S2T-C0STX  IF  IN  TABLE,  OK 

0822  DA  29  08 

0042 

JC 

REFCOS 

0825  2F 

0043 

cnA 

ELSE  NPOINTS- INDEX 

0826  3C 

0044 

I  NR 

A 

0827  C6  60 

0045 

ADI 

NP0INTS4FLT 

0829  DF 

0046  REFCOS  RST 

REF/B 

082A  C9 

0047 

RET 

082B 

0048  4 

082B 

0049  4  SIN/COSINE  TABLES 
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0828 

0050  t 

082B 

0051  COSTAB  EQU 

« 

0828  41 

0052  COST! 

D8 

041H 

082C  80 

0053 

DB 

080H 

082D  00 

0054 

D8 

OOOH 

08 2 E  40 

0055 

D8 

040H 

082F  FB 

0056 

DB 

OFBH 

0830  15 

0057 

DB 

015H 

0831  40 

0058 

D8 

040H 

0832  EC 

0059 

DB 

OECH 

0833  83 

0060 

Dfi 

083H 

0834  40 

0061 

DB 

040H 

0635  D4 

0062 

DB 

0D4H 

0836  DB 

0063 

D8 

0D8H 

0837  40 

0064 

D8 

040H 

0838  85 

0065 

C8 

0B5H 

0839  04 

0066 

DB 

004H 

083A  40 

0067 

D8 

040H 

083B  8E 

0068 

DB 

08EH 

083C  3A 

0069 

DB 

03AH 

0B3D  3F 

0070 

DB 

03FH 

083E  C3 

0071 

DB 

0C3H 

083F  EE 

0072 

DB 

OEEH 

0840  3E 

0073 

D8 

03EH 

0841  C7 

0074 

D8 

0C7H 

0842  C5 

0075 

DB 

0C5H 

0843  00 

0076 

DB 

OOOH 

0344  00 

0077 

DB 

OOOH 

0845  00 

0078 

D8 

OOOH 

0846  BE 

0079 

D8 

OBEH 

0847  C7 

0080 

DB 

0C7H 

0848  C5 

0081 

D8 

0C5H 

0849  BF 

0082 

DB 

OBFH 

084A  C3 

0083 

DB 

0C3H 

084B  EE 

0084 

DB 

OEEH 

034C  CO 

0085 

DB 

OCOH 

0B4D  BE 

0086 

DB 

03EH 

0B4E  3A 

0087 

DB 

03AH 

0B4F  CO 

00E8 

DB 

OCOH 

0850  B5 

0089 

DB 

0B5H 

0851  04 

0090 

DB 

004H 

0852  CO 

0091 

DB 

OCOH 

0853  D4 

0092 

DB 

0D4H 

0854  DB 

00°3 

DB 

ODBH 

0555  CO 

0094 

DB 

OCOH 

0856  EC 

0095 

DB 

OECH 

0857  83 

0096 

DB 

08  3H 

0858  CO 

0097 

DB 

OCOH 

0859  FB 

0098 

DB 

OFBH 

085A  15 

0099 

DB 

015H 

COSINE 
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0B5B  Cl 

0100 

DB 

0C1H 

085C  BO 

0101 

DB 

OBOH 

0S5D  00 

0102 

DB 

OOOH 

0B5E  41 

0103  C0S2T 

DB 

04 1H 

0B5F  90 

0104 

DB 

OBOH 

0B60  00 

0105 

DB 

OOOH 

0B61  40 

0106 

DB 

040H 

0862  F6 

0107 

DB 

0F6H 

OB 63  43 

0108 

DB 

043H 

0864  40 

0109 

DB 

040H 

0B65  DA 

0110 

DB 

ODAH 

0366  83 

0111 

DB 

083H 

0B67  40 

0112 

DB 

040H 

0B68  BO 

0113 

DB 

OBOH 

0869  FC 

0114 

DB 

OFCH 

086A  40 

0115 

DB 

040H 

C86B  BO 

0116 

DB 

OBOH 

086C  00 

0117 

DB 

OOOH 

0B6D  3F 

0118 

DB 

03FH 

086E  9E 

0119 

DB 

09EH 

0B6F  OB 

0120 

DB 

OOBH 

0870  3E 

0121 

DB 

03EH 

0B71  95 

0122 

DB 

095H 

0872  F6 

0123 

DB 

0F6H 

0873  3C 

0124 

DB 

03CH 

0874  9B 

0125 

DB 

09BH 

0B75  E5 

0126 

DB 

0E5H 

0876  00 

0127 

DB 

OOOH 

0977  00 

0128 

DB 

OOOH 

08 7B  00 

0129 

DB 

OOOH 

OB 79  3C 

0130 

DB 

03CH 

087A  9B 

0131 

DB 

09BH 

0B7B  E5 

0132 

DB 

0E5H 

087C  3E 

0133 

DB 

03EH 

0B7D  95 

0134 

DB 

095H 

0B7E  F6 

0135 

DB 

0F6H 

0B7F  3F 

0136 

DB 

03FH 

OB 30  9E 

0137 

DB 

09EH 

0BB1  OB 

01 3B 

DB 

OOBH 

OB82  40 

0139 

DB 

040H 

0BB3  BO 

0140 

DB 

OBOH 

0BB4  00 

0141 

DB 

OOOH 

0BB5  40 

0142 

DB 

040H 

0886  BO 

0143 

DB 

OBOH 

0B87  FC 

0144 

OB 

OFCH 

0B88  40 

0145 

DB 

040H 

0B89  DA 

0146 

DB 

ODAH 

08 BA  B3 

0147 

DB 

0B3H 

08BB  40 

014B 

DB 

040H 

0B8C  F6 

0149 

DB 

0F6H 
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038D  43 

0150 

DB 

043H 

)88E  41 

0151 

DB 

041H 

088F  80 

0152 

DB 

080H 

0890  00 

0153 

DB 

OOOH 

0891  00 

0154  SNCST 

DB 

OOOH 

0892  00 

0155 

DB 

COOK 

0893  00 

0156 

DB 

OOOH 

0894  3E 

0157 

DB 

03EH 

OB’S  C3 

0158 

DB 

0C3H 

0856  EF 

0159 

DB 

OEFH 

08’7  3F 

0160 

DB 

03FH 

''898  85 

0161 

DB 

0B5H 

089’  04 

0162 

DB 

004H 

089A  3F 

0163 

DB 

03FH 

039B  EC 

0164 

DB 

OECH 

089C  83 

0165 

DB 

08  3H 

089D  40 

0166 

DB 

040H 

089E  80 

0167 

DB 

080H 

089F  00 

0168 

DB 

OOOH 

08A0  3F 

0169 

DB 

03FH 

08A1  EC 

0170 

DB 

OECH 

08 A 2  33 

0171 

DB 

0B3H 

0BA3  3F 

0172 

DB 

03FH 

08 A 4  85 

0173 

DB 

0B5H 

08A5  04 

0174 

DB 

004H 

08 Ao  3E 

0175 

DB 

03EH 

08A7  C3 

0176 

DB 

0C3H 

08A8  EF 

0177 

DB 

OEFH 

08A9  00 

0178 

DB 

OOOH 

09AA  00 

0179 

DB 

OOOH 

08AB  00 

0180 

DB 

OOOH 

08AC  BE 

0181 

DB 

OBEH 

08AD  C3 

0182 

DB 

0C3H 

08AE  EF 

0183 

DB 

OEFH 

08 AF  BF 

0184 

DB 

OBFH 

09B0  B5 

0185 

DB 

0B5H 

08B1  04 

0186 

DB 

004H 

0BB2  BF 

0187 

DB 

08FH 

0BB3  EC 

0188 

DB 

OECH 

08B4  83 

0189 

DB 

083H 

08E5  CO 

0190 

DB 

OCOH 

08 BA  80 

0191 

DB 

08  OH 

08B7  00 

0192 

DB 

OOOH 

08B8  BF 

0193 

DB 

OBFH 

08B9  EC 

0194 

DB 

OECH 

08 BA  83 

0195 

DB 

083H 

08BB  BF 

0196 

DB 

OBFH 

08BC  85 

0197 

DB 

0B5H 

08BD  04 

0198 

DB 

004H 

08BE  BE 

0199 

DB 

OBEH 
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08BF  C3 

0200 

DB 

0C3H 

09C0  EF 

0201 

DB 

OEFH 

0BC1  00 

0202 

DB 

OOOH 

08C2  00 

0203 

DB 

OOOH 

0BC3  00 

0204 

DB 

OOOH 

08C4 

0205  SNCSX 

ECU 

i 

08C4 

0206  NETT 

EG  J 

$ 

08C4 

0207 

CON 

NETT 
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0000 

0001  1 

0000 

0002  1  CRRES  FLIGHT  SOFTWARE —  SPIN  FITTING  ALGORITHM 

0000 

0003  »  FILE 

:  SPIN. A 

0000 

0004  1 

0000 

0005  FLT 

EQU 

3  FLOATING  POINT  LENGTH 

0000 

0006  NULL 

ECU 

40H  NULL  FLOAT  INDICATOR 

0000 

0007  NPOINTS  EQU 

32  NUMBER  OF  POINTS  IN  FIT 

0000 

0008  MINN 

EQU 

3  MINIMUM  N  OR  MHI 

0000 

OOO3  AVFTS 

EQU 

4  1  FOINTS  TO  RETAIN  AHI/ALO 

0000 

0010  HISAIN  ECU 

10H  HI6H  GAIN  SAMPLE 

OOv*) 

001!  P.EjBIT 

Epy 

20H  REJECTED  BIT 

0000 

0012  » 

0000 

0013  SAINF 

EQU 

OIFLT  INPUT  PARAMETER  BLOC1' 

0000 

0014  ALPHA 

EQU 

11FLT 

0000 

0015  BETA 

EO'J 

2IFLT 

0000 

0016  ATABL 

EQU 

3 * F l T  AHI/ALO  TABLE 

0000 

0017  ATEND 

EOU 

AVPTS*  2IFLT+AT  hBL 

0000 

001B  D3H 

EQU 

2 

0000 

0019  1 

OOC'O 

0020  I  SPIN  FIT  SUBROUTINE. 

0000 

0021  »  ON  ENTRY: 

CHL3-)  SAMPLED  DATA  BLOCK 

0000 

C022  1 

CBEJ->  PAFAM  BLOCK 

0000 

0023  1 

EBC3-)  WHERE  TO  PUT  RESULTS 

oooo 

0024  i 

0000 

0025  SPIN 

EQU 

NEKT 

oooo 

0026 

COM 

SPIN 

0000 

0027 

ORG 

SPIN 

08C4  22  20  23 

0028 

SHLO 

SAMPTR  SAVE  DATA  IN  ADDR 

DSC'  ES 

0029 

XCHG 

, 

08CS  22  22  23 

0030 

SHLD 

PRMPTP:  SAVE  PARAMS  ADDR 

03 CB  C5 

0031 

PUSH 

B  STACK  RESULTS  ADDR 

OBCC  3E  C3 

0032 

m 

A.0C3H  PUT  JUMP  INTO  FUNCTION 

OECE  32  2S  23 

0033 

STA 

FN 

08DI 

0034  1 

>;8D1  CD  E3  08 

0035 

CALL 

FHASI  DO  4X4  SOLUTIONS 

08Di  CD  OE  OC 

0036 

CALL 

AVERAGE  AVERAGE  AHI  AND  ALG 

08D7  CD  FB  08 

0037 

CALL 

PHAS2  THEN  DO  FITS  N/  B  AND  C 

08DA 

0038  1 

08DA  21 

0039  El  IT 

POP 

D  MOVE  LOCAL  RESULTS  INTO 

08DB  21  35  23 

0040 

LX  I 

H, AHI  THE  DESTINATION  AREA 

03DE  OE  10 

0041 

MVI 

C, FLUSH  (AHI, LO,B,C, SIGMA. N) 

08E0  C3  B3  OC 

0042 

JMP 

COPY 

08E3 

0043  t 

08E3 

0044  1  1ST  AND  2ND  PHASES. 

0SE3 

0045  1 

09E3  3E  C4 

0046  PHASI 

MVI 

A, 4  INI T  FOP  4X4  MATRIX 

08E5  11  35  23 

0047 

HI 

D.AH!  RESULTS  *0  AHI  THRU  C 

08E8  CD  13  0? 

0048 

CALL 

I PHASE 

OBEB  CD  24  09 

0049 

CALL 

SEN44  6ENERATE  SUMS  TOP  4X4 
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08EE 

CO 

AE 

09 

0050  PHI 

CALL 

S0L44  SOLVE  THE  4X4 

08FI 

CD 

85 

OB 

0051 

CALL 

CALCSB  CALCULATE  STD  DEVIATION 

Q8F4 

CD 

El 

09 

0052 

CALL 

REJ44  REJECT  ALL  POINTS  OFF  CURVE 

08F7 

C2 

EE 

08 

0053 

JNZ 

PHI  REPEAT  UNTIL  NO  GARBASE 

03FA 

C9 

0054 

RET 

a 

OOFB 

0055  1 

08FB 

3E 

02 

0056  PHAS2 

MV  I 

A, 2  INIT  FOR  SMALLER  MATRIX 

08FD 

11 

3B 

23 

0057 

LXI 

D, 8C0MP  RESULTS  TO  8  AND  C 

0900 

CD 

13 

09 

0058 

CALL 

IPHASE 

090J 

CD 

62 

09 

0059 

CALL 

6EN22 

0906 

CD 

Do 

09 

0060  FH2 

CALL 

S0L22  SOLVE  SMALLER  MATRIX 

0909 

CD 

85 

OB 

0061 

CALL 

CALCSD  COMPUTE  SIGMA 

090C 

CD 

ED 

09 

0062 

CALL 

REJ22  REJECT  POINTS 

090F 

C2 

06 

09 

0063 

JNZ 

PH2 

0912 

C9 

0064 

RET 

• 

0913 

0065  1 

0913 

0066  t  INIT  A  PHASE. 

0913 

0067  1 

0913 

21 

48 

24 

0068  I PHASE  LXI 

H, SCRATCH  TELL  SOLVER  WHERE 

0916 

CD 

7E 

06 

0069 

CALL 

IMATX  TO  FIND  MATRIX  COPV 

0919 

3E 

03 

0070 

MV  I 

A. ALPHA  APJB  <-  ALPHA 

091B 

CD 

DB 

OC 

0071 

CALL 

PEFP 

091E 

11 

46 

23 

0072 

LXI 

D, APJB 

0921 

C3 

86 

OC 

0073 

JHP 

FMOV 

0924 

0074  « 

0924 

0075  *  GENERATE  THE  MATRIX  TO  8EGIN 

0924 

0076  1 

0924 

CD 

60 

OA 

0077  SEN44 

CALL 

CLRMAX  ZERO  THE  MATRIX  IA=0> 

0927 

32 

44 

23 

0078 

STA 

N  •  POINTS^ 

092A 

32 

45 

23 

0079 

STA 

HHI  »  HI  GAIN  P0INTS=0 

092D 

32 

2D 

23 

0080 

STA 

ADOSB  SET  ADD  MODE  FOR  SUMS 

0930 

0081  « 

0930 

21 

39 

09 

0082 

LXI 

H.6ENMI  REPEAT  6ENM1  FOR  EACH  FOINT 

0933 

CD 

10 

OD 

0083 

CALL 

DOLOOP 

0936 

r* 

w%* 

OA 

08 

0084 

JHP 

634  THEN  PRODUCE  COPIES 

0939 

0085  1 

0939 

CD 

Cl 

OC 

0086  GENH1 

CALL 

REFSAM  IHLJ->SAMDTA(I! 

093C 

5E 

0087 

MOV 

E,N  EDE3=SAMPLE 

093D 

23 

0088 

INX 

H 

093E 

56 

0089 

MOV 

D,N 

093F 

E5 

0090 

PUSH 

H 

0940 

CD 

9F 

OC 

0091 

CALL 

FLT12  FLOAT  12  BIT  FORMAT 

0943 

El 

0092 

POP 

H 

0944 

7E 

0093 

MOV 

A,H  CHECK  INDICATOR 

0945 

E6 

10 

0094 

ANI 

HIGAIN  IF  HI6H  GAIN,  DO  IT 

0947 

C2 

53 

09 

0095 

JNZ 

MUL6N 

094A 

0096  1 

094A 

CD 

DO 

OC 

0097 

CALL 

REFET  ET(I)SCDE 

094D 

CD 

DA 

03 

0098 

CALL 

STOFP 

0950 

C3 

E9 

OA 

0099 

JHP 

92L01  DO  6UAD  2  LO  AND  01 
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0953 

0100  1 

0953  2A  22  23 

0101  MULcN 

LHLD 

PRMPTR  MULTIPLY  BY  GAIN  FACTOR 

0=56  CD  EO  03 

0102 

CALL 

FMiJL  TO  ADJUST  'OR  5A1N 

095?  CD  DO  OC 

0103 

CALL 

FEFET  STORE  IN  ET(1! 

;95C  CD  DA  03 

0104 

CALL 

STOP? 

095F  33  C 2  OA 

0105 

JPIr 

02H11  DO  9UAD2  HI  AND  01 

0962 

0106  1 

0°S2 

0107  1  GENERATE  THE  2X2  MATRIX 

0962 

'.103  1 

09,2  3£  80 

010°  5EN22 

mv: 

A, BOH  SUBTRACT  MODE 

0964  32  CD  23 

0110 

STA 

ADOSB 

C'9j7  Cl  18  24 

0111 

LX  1 

B.ETCOS  ETC03=ETC0S-AHI*ECSK1 

09 6 A  11  3F  24 

0112 

LX  1 

D.ECSH1 

OciD  21  35  23 

on: 

LX  1 

H,AH1 

0970  CD  94  09 

0114 

CALL 

REMOVE 

0973  01  18  24 

0115 

LX  1 

B.ETCOS  -  ALOIECSLO 

0?76  11  30  24 

0116 

LH 

D.ECSLO 

0979  21  38  23 

0117 

HI 

H.ALO 

097C  CD  94  09 

0119 

CALL 

REMOVE 

0?  7  F 

0119  1 

09 7 F  01  27  24 

0120 

HI 

B.ETS1N  ETS1N=ETS1N-hHHESNH1 

0982  11  42  24 

0121 

LX1 

D.ESNH1 

0985  21  35  23 

0122 

LI! 

H.AH1 

09S3  CD  94  09 

0123 

CALL 

REMOVE 

Oq8B  01  27  24 

0124 

III 

B.ETSIN  -ALOIESNLO 

098E  11  33  24 

0125 

LX  1 

D.ESNLO 

0991  21  38  23 

0126 

LX1 

H,  ALO 

0994 

0127  I 

0994  C5 

0128  REMOVE  PUSH 

B  SAVE  DEST 

0995  D5 

0129 

PUSH 

D  SAVE  MULTIPLIER 

0996  CD  D4  03 

0130 

CALL 

LODFP 

0999  7A 

0131 

MOV 

A , C  IF  MULTIPLIER  NULL 

09 9 A  B7 

0132 

ORA 

A  OR  ZERO,  QUIT 

099B  CA  AB  03 

0133 

JZ 

UNSTK 

099E  FE  40 

0134 

CPI 

NULL 

09A0  CA  AB  09 

0135 

JZ 

UNSTK 

09 A3  El 

0136 

FOP 

H 

09A4  CD  EO  03 

0139 

CALL 

FMUL  MULT 

09A7  El 

0138 

POP 

H 

09A8  C3  7E  OC 

0139 

JMP 

SUM  AND  SUBTRACT 

09 AB  El 

0140  UNSTK 

POP 

H 

09AC  El 

0141 

POP 

H 

09 AD  C9 

0142 

RET 

• 

09AE 

0143  t 

09AE 

0144  1  SOLVE  414 

AND  212  MATP1CES. 

09AE 

0145  t 

09AE  11  48  24 

0146  S0L44 

LX  1 

D, SCRATCH  SOLVE  4X4 

09B1  21  OC  24 

0147 

LX  1 

H,  MAT 

09B4  OE  3C 

0148 

MV1 

C.FLTI4I5 

09B6  CD  DB  09 

0149 

CALL 

SLVNN 
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0150  1 

09B9  3A  45  23 

0151 

LDA 

HHI 

IF  NO  HI  6AIN  POINTS 

09BC  B7 

0152 

ORA 

A 

09B0  C2  C5  09 

0153 

JNZ 

CHKLO 

09C0  3E  40 

0154 

HVI 

A, NULL 

THEN  NULL  AH I 

09C2  32  36  23 

0155 

STA 

AHI+1 

09C5 

0156  t 

09C5  3A  44  23 

0157  CHKL0 

LDA 

N 

IF  NO  LO  6AIN  POINTS 

09CB  21  45  23 

015B 

LX  I 

H,  HHI 

(N-HHI=0> 

09CB  96 

0159 

SUB 

H 

09CC  CO 

0160 

RNZ 

, 

09C0  3E  40 

0161 

HVI 

A,  NULL 

THE!!  NULL  ALO 

09CF  32  39  23 

0162 

STA 

ALOM 

0902  C9 

0163 

RET 

, 

0903 

0164  t 

0903  11  48  24 

0165  S0L22 

LX  I 

D, SCRATCH  COPY  SHALLER  PART 

0906  21  i2  24 

0166 

LI  I 

H.EC0S2  OF  THE  HATRIX 

09D9  OC  IB 

0167 

HVI 

C,  ETSIN-EC0S2+FLT 

090B  CO  BB  OC 

0168  SLVNN 

CALL 

COPY 

090E  C 3  BO  06 

0169 

JHP 

SOLVE 

09E1 

0170  1 

09E1 

0171  1  REJECT  ALL  POINTS  OVER  DISC  AWAY  FROM  THE  CURVE 

09E1 

0172  1 

09E1  21  ID  OA 

0173  REJ44 

LII 

H,RJ4 

USE  RJ4  REJECT  FUNCTION 

09E4  CD  OF  OA 

0174 

CALL 

REJN 

09E7  CD  OA  OB 

0175 

CALL 

Q34 

UPDATE  THE  REST  FOR  4X4 

09EA  C3  F3  09 

0176 

JHP 

RJFIN 

INCREASE  APJB,  RETURN  POINTS 

09ED 

0177  1 

09ED  21  29  OA 

0I7B  REJ22 

LXI 

H.RJ2 

REJECT  POINT  FOR  2X2 

09F0  CD  OF  OA 

0179 

CALL 

REJN 

09F3  21  46  23 

01  BO  RJFIN 

LXI 

H,APJB 

APJB  =  APJB+BETA.  (INCREASE 

09F6  CD  D4  03 

0181 

CALL 

LODFP 

THE  DIFFICULTY  FACTOR! 

09F9  3E  06 

01B2 

HVI 

A, BETA 

09FB  CD  DB  OC 

01B3 

CALL 

REFP 

09FE  CD  9F  04 

01B4 

CALL 

FADD 

0A01  21  46  23 

01B5 

LXI 

H,APJB 

0A04  CO  DA  03 

0186 

CALL 

STOFP 

OA07 

01B7  1 

0A07  3A  2E  23 

018B 

LOA 

NP 

RETURN  *  POINTS  REJECTED 

OAOA  21  44  23 

01B9 

LXI 

H,N 

OAOD  96 

0190 

SUB 

H 

OAOE  C9 

0191 

RET 

• 

OAOF 

0192  4 

OAOF  3A  44  23 

0193  REJN 

LOA 

N 

RECORO  1  POINTS  NON 

0AI2  32  2E  23 

0194 

STA 

NP 

0A15  3E  BO 

0195 

HVI 

A,  BOH 

SET  SUBTRACT  HOOE 

0AI7  32  2D  23 

0196 

STA 

ADOSB 

0A1A  C3  10  00 

0197 

JHP 

DOLOOP 

EXECUTE  REJECT  FUNCTION 

0A10 

0198  1 

0A1D  CO  33  OA 

0199  RJ4 

CALL 

RJTEST 

TEST  FOR  NEW  REJECTION 
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0A20  DO 

0200 

RNC 

, 

IF  OLD  OR  NQ  REJECT,  QUIT 

0A21  E6 

10 

0201 

AN! 

HI  SAIN 

IF  NEW  REJ,  UPDATE  SUNS  IN  02  AND  01 

0A23  CA 

E9 

OA 

0202 

JI 

02LO1 

0A26  C3 

C2 

OA 

0203 

JMF‘ 

Q2HI1 

0A29 

0204  X 

0A29  CD 

33 

OA 

0205  R32 

CALL 

RJTEST 

TEST  FOR  REJECTION 

0A2C  CO 

0206 

RNC 

OLD  OR  NO  REJECT 

0A2D  CD 

4D 

OB 

0207 

CALL 

31X22 

UPDATE  SUNS  IN  01  FOR  2X2 

0A30  C3 

7D 

OA 

020B 

JHP 

31 

AND  FINISH  WITH  NORNAL  Q1 

0A33 

0209  1 

0A33 

0210  1  RETURNS  NO  CARRY  IF  NO  CHANGE 

0A33 

0211  t  CARRY  IF  NEWLY  REJECTED 

0A33 

0212  t 

0A33  CD 

Cl 

OC 

0213  RJTEST  CALL 

REFSAH 

IF  REJECTED  ALREADY, 

0636  23 

0214 

INK 

H 

0637  7E 

0215 

NOV 

A,H 

THEN  RETURN  NO  CHANGE 

0638  FE 

20 

0216 

CPI 

REJ8IT 

> 

0A3A  DO 

0217 

RNC 

0A3B 

0218  t 

0A3B  E6 

10 

0219 

AN  I 

HIGAIN 

REJECT  IF  TOO  FEW  POINTS 

0A3D  21 

45 

23 

0220 

LXI 

H,NHI 

0A40  7E 

0221 

NOV 

A,H 

IN  THIS  GAIN. 

0A41  C2 

48 

OA 

0222 

JNZ 

CN1 

0644  3A 

44 

23 

0223 

LDA 

N 

(N-HHIKHINN 

0647  96 

0224 

SUB 

N 

0648  FE 

03 

0225  cm 

CPI 

NINN 

0646  DA 

63 

OA 

0226 

JC 

HRKREJ 

0A4D 

0227  t 

0A4D  CD 

CA 

OC 

0228 

CALL 

REFDIF 

IF  ABSIDIFFIDXDISC 

0A50  CD 

D4 

03 

0229 

CALL 

LODFP 

THEN  RETURNING  CHANGE) 

OA53  7A 

0230 

NOV 

A,D 

(IF  DIFF=0,  RETURNING)) 

0A54  B7 

0231 

ORA 

A 

0A55  C8 

0232 

RZ 

, 

0A56  79 

0233 

NOV 

A,C 

TAKE  A8S0LUTE  VALUE 

0657  E6 

7F 

0234 

AN! 

7FH 

0A59  4F 

0235 

NOV 

C,A 

0A5A  21 

49 

23 

0236 

LXI 

H ,  D I  SC 

CONPARE  EXPONENTS 

0A5D  BE 

0237 

CNP 

N 

IF  EQUAL  EXPS,  THEN  CALL 

0A5E  CC 

B9 

04 

0238 

CZ 

FCNP 

CONPARE  TO  SET  FLAGS 

0A61  3F 

0239 

CNC 

# 

RETURN  INC)  IF  DIFF  <  DISC 

OA62  DO 

0240 

RNC 

t 

0A63 

0241  1 

OA63  CD 

Cl 

OC 

0242  MRKREJ  CALL 

REFSAH 

NARK  POINT  REJECTED 

0A66  23 

0243 

INX 

H 

0A67  7E 

0244 

NOV 

A,N 

0A6B  F6 

20 

0245 

QRI 

REJ8IT 

0A6A  77 

0246 

NOV 

H,A 

0A6B  37 

0247 

STC 

a 

RETURN  (CHANGED) 

0A6C  C9 

0248 

RET 

0A6D 

0249  1 
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OA&D 

21 

OD 

24 

0250  CLRHAJC  LXI 

H,HATM  ZERO  BYTE  2 

0A70 

OE 

14 

0251 

HVI 

C , 4 *5  OF  EACH  IN  MATRIX 

0A72 

11 

03 

00 

0252 

LXI 

D,FLT 

0A75 

97 

0253 

SUB 

A 

0A76 

77 

0254  CLR1 

NOV 

N,A 

0A77 

19 

0255 

DAD 

D 

0A78 

OD 

0256 

DCR 

C 

0A79 

C2 

76 

OA 

0257 

JNZ 

CLR1 

0A7C 

C9 

0258 

RET 

• 

0A7D 

0259  1 

0A7D 

0260  t  QUAD 

1 

0A7D 

0261  t 

0A7D 

21 

44 

23 

0262  Q1 

LXI 

H,N  N  =  N  (+/->  1 

oAeo 

CD 

88 

OC 

0263 

CALL 

COUNT 

0AB3 

CD 

F5 

OC 

0264 

CALL 

COSISQ  SUN  C0SU2 

0A86 

21 

12 

24 

0265 

LXI 

H.EC0S2 

0AB9 

CD 

7E 

OC 

0266 

CALL 

SUN 

OABC 

CD 

07 

OD 

0267 

CALL 

SINCOS  SUN  SINCOS 

0A8F 

21 

15 

24 

0268 

LXI 

H.ESNCS 

0A92 

CD 

7E 

OC 

0269 

CALL 

SUN 

0A95 

21 

21 

24 

0270 

LXI 

H.ECSSN  SUN  COSSIN 

0A98 

CD 

DA 

03 

0271 

CALL 

STOFP 

0A98 

CD 

FE 

OC 

0272 

CALL 

SINESQ  SUN  SINM2 

0A9E 

21 

24 

24 

0273 

LXI 

H,  ESIN2 

0AA1 

CD 

7E 

OC 

0274 

CALL 

SUN 

0AA4 

0275  1 

0AA4 

CD 

E3 

OC 

0276 

CALL 

COSINE  SUN  COSIET(I) 

0AA7 

CD 

DO 

OC 

0277 

CALL 

REFET 

OAAA 

CD 

EO 

03 

0278 

CALL 

FNUL 

OAAD 

21 

18 

24 

0279 

LXI 

H.ETCOS 

OABO 

CD 

7E 

OC 

0280 

CALL 

SUN 

0A83 

0281  « 

0A83 

CD 

EC 

OC 

0282 

CALL 

SINE  SUN  SINIET(I) 

0A86 

CD 

DO 

OC 

0283 

CALL 

REFET 

OA09 

CD 

EO 

03 

0284 

CALL 

FNUL 

OABC 

21 

27 

24 

0285 

LXI 

Hf ETSIN 

0A8F 

C3 

7E 

OC 

0286 

JNP 

SUN 

0AC2 

0287  1 

0AC2 

0288  t  QUAD  2.  SUN 

OF  COSINES  AND  SINES 

0AC2 

0289  1 

0AC2 

21 

45 

23 

0290  Q2HI1 

LXI 

H,NHI  KEEP  TRACK  OF  HIGH  POINTS 

0AC5 

CD 

88 

OC 

0291 

CALL 

COUNT  N=N+1  OR  -1 

0AC8 

CD 

E3 

OC 

0292 

CALL 

COSINE  ECSHMCSHI  (+/-> COS 

0AC8 

21 

3F 

24 

0293 

LXI 

H,ECSHI 

OACE 

CD 

7E 

OC 

0294 

CALL 

SUN 

0AD1 

CD 

EC 

OC 

0295 

CALL 

SINE  ESNHI=ESNHI (+/-) SIN 

0AD4 

21 

42 

24 

0296 

LXI 

HfESNHI 

0AD7 

CD 

7E 

OC 

0297 

CALL 

SUN 

OADA 

CD 

DO 

OC 

0298 

CALL 

REFET  EHI-EHI (*/-)ET(I) 

OADD 

CD 

D4 

03 

0299 

CALL 

LODFP 
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OAEO  21  45  24 

0300 

LXI 

H,EHI 

0AE3  CD  7E  OC 

0301 

CALL 

SUN 

0AE6  C3  7D  OA 

0302 

JNP 

61 

0AE9 

0303  I 

0AE9  CD  E3  OC 

0304  02LQ1 

CALL 

COSINE 

SANE  AS  ABOVE  FOR  l 

OAEC  21  30  24 

0305 

LXI 

H.ECSLQ 

OAEF  CD  7E  OC 

0306 

CALL 

SUM 

0AF2  CD  EC  OC 

0307 

CALL 

SINE 

0AF5  21  33  24 

030B 

LXI 

H, ESNLQ 

0AF8  CD  7E  OC 

0309 

CALL 

SUN 

0AF6 

0310  t 

OAFB  CD  DO  OC 

0311 

CALL 

REFET 

OAFE  CD  D4  03 

0312 

CALL 

LODFP 

0B01  21  36  24 

0313 

LXI 

H,  ELO 

0B04  CD  7E  OC 

0314 

CALL 

SUN 

0B07  C3  7D  OA 

0315 

3  HP 

61 

OBOA 

0316  1 

OBOA 

0317  1  QUADS  3  AND  4.  COPY 

VALUES  FROM  QUAD  2 

OBOA 

031 B  t 

OBOA  21  3F  24 

0319  654 

LXI 

H,ECSHI 

ECH=ECSHI 

OBOD  li  OC  24 

0320 

LXI 

D.ECH 

0B10  CD  B6  OC 

0321 

CALL 

FNOV 

0613  11  IB  24 

0322 

LXI 

D,£SH 

ESH=ESNHI 

0B16  CD  B6  OC 

0323 

CALL 

FNOV 

0B19 

0324  1 

0B19  21  30  24 

0325 

LXI 

H,ECSLO 

ECL=ECSLO 

0B1C  11  OF  24 

0326 

LXI 

D,ECL 

0B1F  CD  B6  OC 

0327 

CALL 

FNOV 

0B22  11  IE  24 

0328 

LXI 

D,ESL 

0B25  CD  B6  OC 

0329 

CALL 

FNOV 

0B28 

0330  1 

0B28 

0331  1  QUAD 

4. 

0B2B 

0332  1 

0B2B  3A  45  23 

0333 

LDA 

HHI 

FHHI=FLQAT(H) 

0B2B  B7 

0334 

ORA 

A 

IF  N=0  THEN  SET  NHL 

0B2C  C2  30  OB 

0335 

JNZ 

Q4A 

0B2F  3C 

0336 

I  NR 

A 

0B30  CD  96  OC 

0337  Q4A 

CALL 

FLT8 

0B33  21  39  24 

0338 

LXI 

H,FHHI 

0B36  CD  DA  03 

0339 

CALL 

STOFP 

, 

0B39 

0340  1 

OB 3 9  3A  44  23 

0341 

LDA 

N 

NLH=FLOAT  4N-H) 

0B3C  21  45  23 

0342 

LXI 

H,NHI 

0B3F  96 

0343 

SU8 

N 

0B40  C2  44  OB 

0344 

JNZ 

64B 

0B43  3C 

0345 

I  NR 

A 

0B44  CD  96  OC 

0346  Q4B 

CALL 

FLT8 

0B47  21  2D  24 

0347 

LXI 

H,NLH 

084A  C3  DA  03 

0348 

JNP 

STOFP 

0B4D 

0349  I 
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0B4D 
0B4D 
OB4D  21 
0B50  E6 
0B52  C2 
0B55  21 
OB5B 
OB58  7E 
0B59  B7 
0B5A  CB 
0B5B  FE 
0B5D  CS 
0B5E  2B 
0B5F 
0B5F  E5 
0360  CD 
0B63  3A 
0866  CD 
0B69  CD 
0B6C  21 
0B6F  CD 
0B72 
0B72  El 
0B73  CD 
0B76  3A 
OB  79  CD 
0B7C  CD 
0B7F  21 
0BB2  C3 
0BB5 
0885 
0BB5 
OB  95 
0B85  97 
0BB6  32 
0BB9  3A 
OBBC  3D 
OBBD  CD 
0B90  21 
0B93  CD 
0B96  21 
0B99  CD 
0B9C  21 
0B9F  CD 
0BA2  21 
0BA5  CD 
0BA8  CD 
OBAB  21 
OBAE  CD 
0BB1 


0350  1  REMOVE  SUMS  FOR  2X2  FROM  fil  ETSIN  AND  ETCOS 

0351  1 

36  23 

0352  01X22 

LX  I 

H'AHI+I  IF  HI6H  GAIN 

10 

0353 

AN  I 

HIGAIN 

5B  OB 

0354 

JNZ 

Q I X I 

39  23 

0355 

LXI 

H, AL0+-1  IF  LON  SAIN 

0356  » 

0357  SIXI 

MOV 

A, M  CHECK  IF  AX  NULL 

035B 

ORA 

A  IF  NULL  OR  ZERO,  QUIT 

0359 

RZ 

( 

40 

0360 

CPI 

NULL 

0361 

RZ 

• 

0362 

DCX 

H 

0363  1 

0364 

PUSH 

H 

D4  03 

0365 

CALL 

LODFP  ETCOS=ETCOS-A (GAIN) ICOS ( I 

26  23 

0366 

LDA 

INDEX  <HL->COS ( INDEX  > ) 

ID  OB 

0367 

CALL 

COS 

EO  03 

0360 

CALL 

FMUL 

18  24 

0369 

LXI 

H, ETCOS 

7E  OC 

0370 

CALL 

SUM 

0371  1 

0372 

POP 

H 

04  03 

0373 

CALL 

LODFP  ET5IN=ETSIN-A(6AIN)  ISINU 

2B  23 

0374 

LDA 

INDEX 

16  08 

0375 

CALL 

SIN 

EO  03 

0376 

CALL 

FMUL 

27  24 

0377 

LXI 

H, ETSIN 

7E  OC 

037B 

JMP 

SUM 

0379  1 

0380  1  CALCULATE  THE  STANDARD  DEVIATION  AND  THE 

0381  1  DISCRIMINATION  FACTOR 

03B2  1 

03B3  CALCSD  SUB 

A  INI T  SIGMA  SUM  =  0 

42  23 

0384 

STA 

SI6MAM 

44  23 

03B5 

LDA 

N  FLTN1  =  FLOAT (N-l) 

0386 

DCR 

A 

96  OC 

0387 

CALL 

FLT8 

2F  23 

038B 

LXI 

H,  FLTNI 

DA  03 

0389 

CALL 

STOFP 

BD  OB 

0390 

LXI 

H,CDIFF  CALCULATE  DIFFERENCES 

10  00 

0391 

CALL 

DOLOOP  AND  SUM  S0UARE5 

41  23 

0392 

LXI 

H, SIGMA  SIGMA  *  SIGMA/ (N-I> 

04  03 

0393 

CALL 

LODFP 

2F  23 

0394 

LXI 

H, FLTNI 

OB  04 

0395 

CALL 

FDIV 

DC  05 

0396 

CALL 

FS0RT  TAKE  ROOT 

41  23 

0397 

LXI 

H, SIGMA  THEN  STORE 

DA  03 

039  B 

CALL 

STOFP 

0399  t 
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OBBI  21  46  23 

0400 

LXI 

H.APJB  DISC=SIGMAt (ALPHA+JIBETA) 

0BB4  CO  EO  03 

0401 

CALL 

FMUL 

0BB7  21  49  23 

0402 

LXI 

H.DISC 

OBBA  C3  DA  03 

0403 

JMP 

5T0FP 

OBBD 

0404  1 

OBBD 

0405  »  CALCULATE  THE  DIFFERENCES  ARRAY 

OBBD 

0406  » 

FOR  POINTS  WHICH  HAVE  NOT  BEEN  REJECTED 

OBBD 

0407  t 

DIFF(I)  * 

A(SAIN)+BICOS(I)+C»SIN(I)  -  ETII) 

OBBD 

0408  t 

ALSO  SUM  SIGMA  AT  THE  SAME  TIME 

OBBD 

0409  1 

OEBD  CD  Cl  OC 

0410  CDIFF 

CALL 

REFSAH  IF  POINT!  I )=REJECTED, QUIT 

OB CO  23 

0411 

INX 

H 

0BC1  7E 

0412 

MOV 

A,  M 

0BC2  FE  20 

0413 

CPI 

REJBIT 

0BC4  DO 

0414 

RNC 

0BC5  F5 

0415 

PUSH 

PSW  ELSE  SAVE  GAIN  INFO 

0BC6  CD  E3  OC 

0416 

CALL 

COSINE  BICOSINE ( I } 

0BC9  21  3B  23 

0417 

LXI 

H.BCOMP 

OBCC  CD  EO  03 

0418 

CALL 

FMUL 

OBCF  21  32  23 

0419 

LXI 

H,FTEMP 

0BD2  CD  DA  03 

0420 

CALL 

STOFP 

0BD5  CD  EC  OC 

0421 

CALL 

SINE  *  CISIN  ( I ) 

0BD8  21  3E  23 

0422 

LXI 

H.CCOHP 

OBDB  CD  EO  03 

0423 

CALL 

FMUL 

OBDE  21  32  23 

0424 

LXI 

H.FTEHP 

OBtl  CD  9F  04 

0425 

CALL 

FADD 

0BE4 

0426  1 

0BE4  FI 

0427 

POP 

PSW  IF  LO  GAIN,  USE  ALO 

0BE5  E6  10 

0428 

ANI 

HIGAIN 

0BE7  21  38  23 

0429 

LXI 

H,  ALO 

OBEA  CA  FO  OB 

0430 

JZ 

ADOFF 

OBED  21  35  23 

0431 

LXI 

H, AHI  ELSE  USE  AHI 

OBFO  CD  9F  04 

0432  ADOFF 

CALL 

FADD  ADD  OFFSET 

0BF3  CD  DO  OC 

0433 

CALL 

REFET  SUBTRACT  ET(I) 

0BF6  CD  93  04 

0434 

CALL 

FSUB 

0BF9  CD  CA  OC 

0435 

CALL 

REFDIF  STORE  IN  DIFF(I) 

OBFC  CD  DA  03 

0436 

CALL 

STOFP 

OBFF  CD  D3  05 

0437 

CALL 

FSSUARE  SSUARE  DIFFII) 

0C02  21  41  23 

0438 

LXI 

H, SIGMA  5IGMA-SIGMA+DIFF(I)H2 

0C05  CD  9F  04 

0439 

CALL 

FADD 

0C08  21  41  23 

0440 

LXI 

H,  SIGMA 

OCOB  Cl  DA  03 

0441 

JMP 

STOFP 

OCOE 

0442  » 

OCOE 

0443  1  MAINTAIN  AVERAGES  OF  AHI  AND  ALO 

OCOE 

0444  1 

OCOE  3E  09 

0445  AVERA6E  MVI 

A, ATABL  F0R6ET  THE  OLDEST 

0C20  CD  DB  OC 

0446 

CALL 

RE FP  AH I /ALO  PAIR 

0C13  EB 

0447 

XCH6 

[DEJ->ATABLtO] 

0C14  21  06  00 

0448 

LXI 

H.FLTI2  IHLMATABLI2J 

0C17  19 

0449 

DAD 

D 
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0C18 

OE 

12 

0450 

HVI 

C, AVPTS-1 I2IFLT 

0C1A 

CD 

88 

OC 

0451 

CALL 

COPY 

OCID 

0452  1 

0C1D 

21 

35 

23 

0453 

LXI 

H,AHI  COPY  AHI/ALO  INTO  TA8LE  BOTTOM 

0C20 

OE 

06 

0454 

HVI 

C , 2IFLT 

0C22 

CD 

ee 

OC 

0455 

CALL 

COPY 

0C25 

0456  1 

0C25 

3£ 

09 

0457 

HVI 

A, ATA8L  ADD  ALL  THE  AHI’S 

0C27 

21 

35 

23 

0458 

LXI 

H, AH I  STORE  INTO  AH I  RESULT 

0C2A 

CD 

32 

OC 

0459 

CALL 

AVSI 

0C2D 

3E 

OC 

0460 

HVI 

A, ATA8L+FLT  ADD  ALL  THE  ALQ’S 

0C2F 

21 

38 

23 

0461 

LXI 

H,  ALO 

0C32 

0462  1 

0C32 

E5 

0463  AVSI 

PUSH 

H  SAVE  ADDRESS  OF  AHI/ALO 

0C33 

OE 

00 

0464 

HVI 

C,0  SUH=0.0 

0C35 

11 

00 

00 

0465 

LXI 

0,0 

0C38 

21 

2C 

23 

0466 

LXI 

H, PTCNT 

0C3B 

36 

00 

0467 

HVI 

H,0 

0C3D 

0468  1 

0C3D 

F5 

0469  SUHLP 

PUSH 

PSW  REFERENCE  PARAH1A3 

0C3E 

CD 

D8 

OC 

0470 

CALL 

REFP 

0C41 

CD 

70 

OC 

0471 

CALL 

CHKADD  ADD  IT 

0C44 

FI 

0472 

POP 

PSN  STEP  2  FLTS  DOWN  IN  TABLE 

0C45 

C6 

06 

0473 

ADI 

FLTI2 

0C47 

FE 

21 

0474 

CPI 

ATEND  IF  MORE  IN  TABLE,  LOOP 

0C49 

DA 

3D 

OC 

0475 

JC 

SUHLP 

0C4C 

0476  1 

0C4C 

CD 

53 

OC 

0477 

CALL 

AVDIV 

0C4F 

El 

0478 

POP 

H 

0C50 

C3 

DA 

03 

0479 

JHP 

STQFP 

0C53 

0480  1 

0C53 

3A 

2C 

23 

0481  AVDIV 

LDA 

PTCNT  IF  ZERO  PTS,  RETURN  NULL 

0C56 

87 

0482 

ORA 

A 

0C57 

CA 

6D 

OC 

0483 

JZ 

AV6NULL 

0C5A 

C5 

0484 

PUSH 

8  SAVE  SUH 

0C58 

D5 

0485 

PUSH 

D 

0C5C 

CD 

96 

OC 

0486 

CALL 

FLT8 

0C5F 

21 

32 

23 

0487 

LXI 

H,FTEHP 

0C62 

CD 

DA 

03 

0488 

CALL 

STOFP 

0C65 

Di 

0489 

POP 

D  DIVIDE  SUH  8Y  COUNT 

0C66 

Cl 

0490 

POP 

8 

0C67 

21 

32 

23 

0491 

LXI 

H.FTEHP 

0C6A 

CJ 

OB 

04 

0492 

JHP 

FDIV 

0C6D 

16 

40 

0493  AV6NULL  HVI 

D,  NULL 

0C6F 

C9 

0494 

RET 

0C70 

0495  1 

0C70 

23 

0496  CHKADD  INI 

H  CHECK  IF  CHL J->  6000  FLT 

0C7I 

7E 

0497 

HQV 

A,  M 

0C72 

FE 

40 

0498 

CPI 

NULL 

0C74 

C8 

0499 

RZ 
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0C75  26 

0500 

DC* 

H 

IF  600D,  ADD  TO  SUN 

OC76  CD  9F  04 

0501 

CALL 

FADD 

0C79  21  2C  23 

0502 

HI 

H.PTCNT  PTCNT++ 

0C7C  34 

0503 

I  NR 

n 

0C7D  CO 

0504 

RET 

0C7E 

0505  1 

OC7E 

0506  »  «  UTILITY  SECTION 

» 

OCE 

0507  1  SUN  CDE  INTO  VALUE  AT  HL. 

OCE 

0508  1 

OCE  E5 

0509  sun 

PUSH 

H 

SAVE  ADDRESS 

OCTF  3A  2D  23 

0510 

LDA 

ACOSB 

PUT  ADD/SUB  HARK 

0C82  AO 

0511 

IRA 

C 

INTO  CDE  (INVERT  S16N  FOR  SUB/ 

0C93  4F 

0512 

nov 

C,  A 

DCS  4  CD  9F  04 

0513 

CALL 

FADD 

ADD  'EH 

0C87  El 

0514 

POP 

H 

AND  STORE 

0C88  C3  DA  03 

0515 

JHP 

ST0FP 

0C8B 

0516  I 

0C8B  3A  20  23 

0517  COUNT 

LDA 

ADOSB 

IF  ADD  NODE. 

0C8E  B7 

0518 

ORA 

A 

THEN 

0C8F  FA  94  OC 

0519 

JM 

SU8N6 

0C92  34 

0520 

1NR 

n 

INCREMENT  H 

0C93  C9 

0521 

RET 

0C«4  35 

0522  SUBN6 

OCR 

n 

ELSE  DECR  H 

0C95  C9 

0523 

RET 

• 

0C96 

0524  1 

0C96  6F 

0525  FLT8 

nov 

L.A 

FLOAT  ACCUH 

OC97  26  00 

0526 

HVI 

M 

0C99  11  00  00 

0527 

LJI 

D,  0 

0C9C  C3  OF  05 

0528 

JHP 

FLT32 

0C9F 

0529  1 

0C9F 

0530  1  FLOAT  12-BIT  2’S  COHPLEHEHT  IN  IDE] 

OCOF 

0531  1  VALUE  RETURNED  IS 

-1  TO  1 

0C9F 

0532  1 

0C9F  21  00  00 

0533  FLT12 

LI1 

H,0 

LON  16  BITS  ARE  0 

0CA2  7A 

0534 

nov 

A.D 

STRIP  TO  12  BITS 

OCA 3  E6  OF 

0535 

AN  I 

OFH 

0CA5  57 

0536 

nov 

M 

0CA6  FE  08 

0537 

CPI 

8 

IF  B0S  THEN  FLOAT  NON 

0CA6  DA  AE  OC 

0538 

JC 

FLTIT 

OCAB  P6  FO 

0539 

OR  I 

OFOH 

ELSE  EXTEND  SIGN 

OCAD  57 

0540 

nov 

D.A 

AND  FLOAT  IT 

OCAE  CD  OF  05 

0541  FLTIT 

CALL 

FLT32 

CDE=FLOAT (DEHL) 

0CB1  79 

0542 

nov 

A.C 

REMOVE  EXPONENT 

0CB2  D6  IB 

0543 

SUl 

27 

BIAS  HE  IMPOSED 

0CE4  4F 

0544 

nov 

C.A 

TO  YIELD  VALUE  0  TO  1 

0CB5  C9 

0545 

PET 

( 

0CB6 

0546  1 

0CB6  OE  03 

0547  FHQV 

HVI 

C.FLT 

hove  i  flt  value 

0CB8  7E 

0548  COPY 

nov 

A,n 

FROn  (HU  TO  (DEI 

OC69  12 

0549 

STAl 

D 
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0C8A  23 

0550 

INX 

H 

0C88  13 

0551 

INK 

D 

0C8C  OD 

0552 

OCR 

C 

0C8D  C2  88  OC 

0553 

JNZ 

COPY 

OCCO  C9 

0554 

RET 

• 

0CC1 

0555  1 

0CC1 

0556  1  REFERENCE  FUNCTIONS  FOR  ARRAYS 

0CC1 

0557  1 

0CC1  2A  20  23 

0558  REFSAH  LHLD 

SAHPTR 

ADDRESS  SAHPLEU2) 

0CC4  3A  2C  23 

0559 

LDA 

INDK2 

0CC7  C3  D6  OC 

0560 

JHP 

REF2 

OCCA  21  AC  23 

0561  REFDIF  LII 

H, DIFF 

ADDRESS  DIFF (I) 

OCCD  C3  D3  OC 

0562 

JHP 

REF 

OCDO  21  4C  23 

0563  REFET 

LII 

H,ET 

ADDRESS  ET ( I ) 

0CD3  3A  28  23 

0564  REF 

LDA 

INDEX 

GET  THE  INDEX 

0CD6  85 

0565  REF2 

ADD 

L 

0CD7  6F 

0566 

NOV 

L,A 

0CD8  DO 

0567 

PNC 

0CD9  24 

0568 

INR 

H 

OCDA  C9 

0569 

RET 

, 

OCDB 

0570  1 

0CD8  2A  22  23 

0571  REFP 

LHLD 

PRHPTR 

CHLI-/PARAHETER  BLOCK 

OCDE  85 

0572 

ADD 

L 

REFER  TO  PARAH(A) 

OCDF  6F 

0573 

HDV 

L»  A 

OCEO  DO 

0574 

RNC 

0CE1  24 

0575 

INR 

H 

0CE2  C9 

0576 

RET 

• 

0CE3 

0577  » 

0CE3 

0578  1  LOADING  TRIGS 

0CE3 

0579  I 

0CE3  3A  2B  23 

0580  COSINE  LDA 

INDEX 

0CE6  CD  ID  08 

0581 

CALL 

COS 

0CE9  C3  D4  03 

0582 

JHP 

LODFP 

OCEC  3A  28  23 

0583  SINE 

LDA 

INDEX 

OCEF  CD  16  08 

0584 

CALL 

SIN 

0CF2  C3  D4  03 

0585 

JHP 

LODFP 

0CF5  3A  2B  23 

0586  C0SIS8  LDA 

INDEX 

0CF8  CD  OF  08 

0587 

CALL 

COSSB 

0CF8  C3  D4  03 

0588 

JHP 

LODFP 

OCFE  3A  2B  23 

0589  SINES8  LDA 

INDEX 

0D01  CD  09  08 

0590 

CALL 

SINS8 

0D04  C3  D4  03 

0591 

JHP 

LODFP 

0D07  3A  28  23 

0592  SINCOS  LDA 

INDEX 

ODOA  CD  FD  07 

0593 

CALL 

SNCS 

ODOD  C3  04  03 

0594 

JHP 

LODFP 

0D10 

0595  1 

0D10 

0596  1  DO-LOOP  EXECUTOR. 

ODIO 

0597  1 

ODIO  22  29  23 

0598  DOLOOP  SHLD 

FN+ 1 

SET  FUNCTION  ADDRESS 

0D1 3  97 

0599 

SU8 

A 
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OD14  32  2C 

23 

0600 

STA 

IN0X2 

OD17  32  2B 

23 

0601  DOST 

STA 

INDEX 

ODIA  CD  28 

23 

0602 

CALL 

FN 

ODID  3A  2C 

23 

0603 

LDA 

1NDX2 

0D20  C6  20 

0604 

ADI 

2116 

0D22  32  2C 

23 

0605 

STA 

INDX2 

0D25  3A  2B 

23 

0606 

LDA 

INDEX 

DO  THE  OTHER  SIDE 

0D28  C6  30 

0607 

ADI 

3116 

OF  THE  PERIOD  NON 

0D2A  32  28 

23 

0608 

STA 

INDEX 

0D2D  CD  28 

23 

0609 

CALL 

FN 

0D30  3A  2C 

23 

0610 

LDA 

INDX2 

0D33  D6  IE 

0611 

SOI 

2116-2 

0D35  32  2C 

23 

0612 

STA 

IN0X2 

0D38  3A  2B 

23 

0613 

LDA 

INDEX 

SUBTRACT  BACK  TO 

0D38  D6  2D 

0614 

SUI 

3116-3 

FRONT  SIDE,  ADD  3 

0D3D  FE  30 

0615 

CPI 

NPOINTSIFLT/2  ONLY  DO  HALF 

0D3F  DA  17 

OD 

0616 

JC 

DOST 

0D42  C9 

0617 

RET 

t 

0D43  , 

0618  NEXT 

EfiU 

$ 

END  OF  SPIN. A 

0D43 

0619 

CON 

NEXT 

OD43 

0620  1 

0D43 

0621  1  SPIN  FIT  VARIABLES 

0D43 

0622  1 

0D43 

0623 

ORG 

SPINRAH 

2320 

0624  SANPTR  DS 

2 

SANPLE  POINTER 

2322 

0625  PRNF'TR 

DS 

2 

PARAM  BLOCK  POINTER 

2324 

0626  AXPTR 

DS 

2 

AHI/LO  POINTER  TENP 

2326 

0627  TBPTR 

OS 

2 

TABLE  POINTER  TENP 

2328 

0628  FN 

DS 

3 

FUNCTION  FOR  DOLOOP 

232B 

0629  INDEX 

DS 

I 

DOLOOP  INDEX  FOR  FLT 

232C 

0630  INDX2 

DS 

I 

DOLOOP  INDEX  FOR  SANPLES 

2320 

0631  ADOSB 

DS 

1 

ADD  OR  SUB  NODE 

232E 

0632  NP 

DS 

I 

TENP  FOR  N 

232F 

0633  FLTN1 

DS 

FLT 

FLOAT  VALUE  OF  N-I 

2332 

0634  FTENP 

DS 

FLT 

TEMPORARY 

2335 

0635  PTCNT 

E6U 

INDX2 

TENP  COUNT  FOR  AVERAGE 

2335 

0636  1 

2335 

0637  AHI 

DS 

FLT 

2338 

0633  ALO 

DS 

FLT 

233B 

0639  8CQHP 

DS 

FLT 

B  CONPONENT 

233E 

0640  CCOHP 

DS 

FLT 

C  CONPONENT 

2341 

0641  SIGMA 

DS 

FLT 

2344 

0642  N 

DS 

1 

IPOI NTS  ACTIVE 

2345 

0643  HHI 

OS 

1 

IHI6H  GAIN  ACTIVE 

2346 

0644  t 

2346 

0645  APJB 

OS 

FLT 

2349 

0646  DISC 

DS 

FLT 

234C 

0647  * 

234C 

0648  ET 

DS 

NPOINTSIFLT  POINTS  IN  F.P. 

23AC 

0649  DIFF 

DS 

NPOINTSIFLT  FIT(I)  -  ETU) 
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240C  0651  I  THE  MATRIX  FOR  S0LVIN6 


240C 

0652 

1 

240C 

0653 

HAT 

ECU 

240C 

0654 

ECH 

DS 

240F 

0655 

ECL 

DS 

2412 

0656 

EC0S2 

DS 

2415 

0657 

ESNCS 

DS 

2418 

0658 

ETCOS 

DS 

241B 

0659 

1 

241B 

0660 

ESH 

DS 

241E 

0661 

ESL 

DS 

2421 

0662 

ECSSN 

DS 

2424 

0663 

ESIN2 

DS 

2427 

0664 

ETSIN 

DS 

242A 

0665 

1 

242A 

0666 

12 

DS 

242D 

0667 

NLH 

DS 

2430 

0668 

ECSLO 

DS 

2433 

0669 

ESNLO 

DS 

2436 

0670 

ELO 

DS 

2439 

0671 

t 

2439 

0672 

FHHI 

DS 

243C 

0673 

21 

DS 

243F 

0674 

ECSHI 

DS 

2442 

0675 

ESNHI 

DS 

2445 

0676 

EHI 

DS 

2448 

0677 

1 

2448 

0678 

SCRATCH  DS 

$ 

FLT  TOP  RON 

FLT 

FLT 

FLT 

FLT 

FLT  2ND  RON 

FLT 

FLT 

FLT 

FLT 

FLT  3RD  RON 

FLT 

FLT 

FLT 

FLT 

FLT  LAST  RON 

FLT 

FLT 

FLT 

FLT 

FLTI4I5  SCRATCH  AREA  FOR  SOLVING 
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0000 

0001 

1 

0000 

0002 

t  CRRES  FLISHT  PROGRAM— MAGNETIC  FIELD  MANAGEMENT 

0000 

0003 

1  WRITTEN  BY  PETER  R  HARVEY 

0000 

0004 

1 

0000 

0005 

1  FILE  :  MAG. A  VERSION  3 

0000 

0006 

t 

0000 

0007 

PSW  EQU 

6  8085  SPECIFIC  INFORMATION 

0000 

0008 

SP  EQU 

6 

0000 

0009 

t 

0000 

0010 

ex  EQU 

2  MULTIPLEXOR  QTY  ADDRESSES 

0000 

0011 

BY  EQU 

1 

0300 

0012 

BZ  EQU 

0 

0000 

0013 

HIGAIN  EQU 

10H  HIGH  SAIN  BIT  IN  QTY 

0000 

0014 

BAMP  EQU 

7  CODE  FOR  B  AMPLIFIER 

0000 

0015 

BMOOE  EQU 

OFEH  MAS  MODE  COMMAND  PREFIX 

0000 

0016 

1 

0000 

0017 

POSLIH  EQU 

41  POSITIVE  SAIN  LIMIT 

0000 

0018 

NE6LIM  EQU 

38  NEGATIVE  GAIN  LIMIT 

0000 

0019 

1 

0000 

0020 

0R6 

MAS 

0050  C3  42  OD 

0021 

JMP 

MAGINIT  INITIALIZATION 

0D53  C3  96  OD 

0022 

JMP 

MAGFRAME  MINOR  FRAME  SYNC 

0056  C3  A7  00 

0023 

JMP 

HASSAIN  GAIN  DECISIONS 

0D59  C3  EA  OD 

0024 

JMP 

MASSAMP  SAMPLE  TIME 

0D5C  C3  F7  OD 

0025 

JMP 

MAGENCD  BUFFERING  TIME 

0D5F  C3  65  OD 

0026 

JMP 

MAGTELEH  TELEMETRY  TIME 

0062 

0027 

t 

0D62 

0028 

t  INITIALIZE  THE  B-FIELD  PACKAGE 

0P62 

0029 

t 

0D62  21  00  FE 

0030 

MAGINIT  LXI 

H,BMDDEI256  BMODE(O) 

0D65  CD  7D  00 

0031 

CALL 

MAGCMD 

OD60  21  26  29 

0032 

LXI 

H, P0SLIMI256+NESLIM 

006 B  22  A6  24 

0033 

SHLD 

LIMITS 

0D6E 

0034 

t 

0D6E  97 

0035 

MAGSYNC  SUB 

A  RESET  THE 

0D6F  32  2F  21 

0036 

STA 

SMPCNT  SAMPLE  STATE  COUNTER 

0D72  3E  FD 

0037 

MV  I 

A,LSBUF»256/I2B-3  SET  NIBBLE  ADDRESS 

0D74  32  2C  21 

0038 

STA 

LGPTR  LESS  3  NIBBLES 

0D77  3E  07 

0039 

MVI 

A, AGBUFI256/128-3  FOR  BOTH  LOW  AND 

0D79  32  2D  21 

0040 

STA 

AGPTR  AUTD  SAIN  POINTERS 

0D7C  C9 

0041 

RET 

( 

0070 

0042 

t 

007D 

0043 

t  PERFORM  THE  BMOOE  COMMAND 

007D 

0044 

1  DN  ENTRY: 

[HLI  =  16-BIT  COMMAND.  (A==L> 

0D7D 

0045 

1 

0D7D  32  33  21 

0046 

MAGCMD  STA 

MODE  REMEMBER  THE  MDOE 

0D80  3E  07 

0047 

MVI 

A, BAMP  SET  THE  B  AMPLIFIER  ON/OFF 

0D82  C3  CC  02 

0048 

JMP 

SETMUX  BY  A  I/O  IN  THE  LSB  OF  L 

0DB5 

0049 

1 
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ODB! 

0050 

1 

B-FIELD  TELEMETRY  OUTPUT  ROUTINES. 

0D85 

0051 

1 

ON  ENTFN: 

A-  0  FOR  BYTE,  1  ROR  WORD 

0235 

02-52 

4 

ON  EXIT  : 

EL 3=8YTE  VALUE,  [ HU = WORD  VALUE 

0C85 

0052 

1 

0235 

B7 

0054 

ha 

iC-TEL  OPA 

A  IF  WORD  RED'D 

0D8i 

04 

8F 

0 

0055 

CM2 

FEAD  THEN  GET  2  ELSE  1 

or?s 

5' 

0056 

NOV 

0,e 

0D8A 

CO 

3F 

00 

0057 

CALL 

FEAD 

oeo 

EB 

C-  >58 

XCHG 

* 

0D8E 

C9 

0059 

RET 

. 

)D3F 

0060 

t 

ODSF 

21 

:e 

21 

0061 

READ  LI1 

H.OTRTR  RETURN  E=MEM[*+OTPTR 1 

00?2 

34 

0062 

INP 

H 

0053 

iE 

0063 

NOV 

L.H 

0094 

sc 

0064 

HGV 

E.M 

0095 

C9 

0065 

RET 

0096 

0066 

1 

0096 

•367 

l 

MINOR  FRAME  SYNC- 

0096 

0068 

1 

ON  ENTRY: 

a=frame  NUMBER 

096 

0069 

1 

'096 

E6 

03 

0070 

HAGFRANE  AN! 

3  IF  FRAME  0  HOD  4 

0093 

CA 

A1 

00 

0071 

U 

PESOUT 

00  9  B 

Ft 

02 

0072 

CF1 

0090 

CA 

6E 

00 

0073 

11 

HAGSYNC 

00  AO 

C9 

0074 

PET 

OCA  1 

0075 

1 

OJA  I 

:e 

F- 

0074 

RESOUT  MV  I 

A.LGBUFI256/256-I  RESET  THE 

OOA3 

*9*3 

J*. 

2E 

n « 

0077 

STA 

OTPTR  PREINC’D  OUTPUT  PTR 

00A6 

C9 

0078 

PET 

ODAT 

0079 

t 

ODA7 

0060 

t 

NAB  GAIN  DECISION  TJ>E. 

ODA' 

0081 

J 

ODA? 

01 

£7 

00 

'1082 

NAGGAIN  hi 

B, SNSAMPS  SAMPLE  THE  TRIPLET 

ODAA 

11 

3 7 

21 

0083 

LX  I 

D.8TL 

02  AD 

ce¬ 

34 

CE 

0084 

CALL 

TRIPLET 

ODBO 

0035 

l 

0080 

ll 

E7 

0 

0086 

L  <  1 

D. SNSAMPS  LOW  GAIN  BY  DEFAULT 

ODE7 

:i 

*4 

21 

0087 

LX  1 

H, BXBTY 

0086 

«€ 

"3 

0033 

MV  I 

C,3 

2D88 

O' 

0089 

RST 

COPY/8 

0DB9 

0090 

1 

OOP  9 

01 

34 

21 

0091 

LX  I 

B.8I8TY  AND  DECIDE  3  BAINS 

ODBC 

2A 

7  7 
J  i 

21 

0092 

LHLD 

BXL 

0D8F 

CO 

CB 

00 

0093 

CALL 

DECIDE 

0DC2 

2A 

39 

21 

0094 

LHLD 

BYL 

0DC5 

CO 

CB 

CO 

0095 

CALL 

DECIDE 

OOC8 

2A 

38 

21 

OO’e 

LHLD 

BZL 

OOCB 

0097 

1 

OOCB 

0098 

1 

DECIDE  WHICH  GAIN  TO  USE 

OOCB 

0-299 

1 
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OSCE  EE 

0100  DECIDE  XCHG 

PUT  VALUE  IN  1DE1 

oocc  :a 

Ab 

24 

0101 

LHLD 

LIMITS  B=PG5.  L  =  NEG  LIMIT 

OOCF  7A 

0102 

HGV 

A.D  IF  SHALL  POSITIVE,  GO 

ODDO  B7 

0103 

ORA 

A 

ODDI  CA 

DC 

OD 

0104 

JZ 

CHECK 

CD DA  Da 

OF 

0105 

SUI 

OFH  IF  NOT  SHALL  NEGATIVE,  SET  LOW 

ODD a  C2 

OD 

0106 

JNZ 

LOW 

CCD?  =3 

0107 

SUB 

E  INVERT  VALUE 

DC  A  5F 

0108 

MOV 

E.A 

ODDB  65 

0109 

MOV 

H.L  USE  NE6  LIMIT 

ODBC 

0110  4 

OCSC  7R 

0111  CHECK 

HOY 

A.E  IP  VAL  =  LIMIT,  USE  LOW  GAIN 

ODD5  BC 

0112 

CMP 

H 

CODE  D2 

E5 

OP 

0113 

JNC 

LOW 

or ei  oft 

0114 

LDAX 

E  USE  HIGH  GAIN 

CDE2  F6 

10 

0115 

OR  I 

HIGAiN 

ODE 4  02 

OU  6 

STAX 

B 

ODES  03 

0117  LOW 

INX 

B 

ODE a  C? 

one 

PET 

0DE7 

on?  4 

(Ml  02 

0120  GNSAMPS  D8 

SX 

OfES  01 

0121 

OB 

BV 

ODE 9  00 

0122 

DB 

B2 

•IDEA 

0123  4 

ODEA 

0124  4  SAMPLE  TINE- 

.  USE  THE  SAMPLE  COUNT  TO  DETERMINE 

ODEA 

0125  4  WHICH  HAG  SAMPLES  TO  TAKE  AND  WHEN  TO  SHIFT,  ETC. 

ODEA 

0126  4 

ODEA  21 

2F 

21 

0127  magsamp  lx: 

K.SHPCNT  S HPCHT++ 

OPED  34 

0128 

INR 

H 

2  CEE  01 

34 

21 

0129 

LX  I 

B.BXOT/  SAMPLE  AUT05AINS 

OP FI  11 

3D 

21 

0130 

LXI 

B.BXSAMP 

0DF4  C3 

34 

OE 

0151 

JMF 

TRIPLET 

0DF7 

0132  4 

0DF7 

0133  4  HAG  ENCODING  TIME 

0DF7 

0134  4 

ODF7  3A 

2F 

21 

0135  HA6ENCD  LDA 

SMPCNT  IF  1ST  SAMPLE  TAKEN 

ODFA  PE 

01 

0136 

CPI 

I 

ODFC  CC 

43 

OE 

0137 

c  z 

SftVLOH 

ODFF 

0138  4 

ODFF  2A 

3D 

21 

0139 

LHLD 

BX3AMP  SAVE  hUTOGAIN  VALUES 

0E02  CD 

58 

OE 

0140 

CALL 

AGSTORE 

0E05  2A 

3F 

21 

0141 

LHLD 

BYSAMP 

0E08  CD 

58 

OE 

0142 

CALL 

AGSTORE 

OEOB  2 A 

41 

21 

0143 

LHLD 

BZSAHP 

OEOE  CC 

SB 

OE 

0144 

CALL 

AGSTORE 

0E11 

0145  » 

0E11  2! 

30 

21 

0146 

LXI 

H.THPX  STORE  THE  THREE  GAINS 

OEM  11 

34 

21 

OM7 

LXI 

D, BXOTY 

OEM  CD 

7" 

OE 

0148 

CALL 

GA INSET 

DEI  A  CD 

77 

OE 

0149 

CALL 

SAINSET 

PA6E  0 
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0E1D  CD 

77 

OE 

0150 

CALL 

GA INSET 

0E2O 

0151 

1 

0E20  3A 

2F 

21 

0152 

LDA 

SMPCNT  IF  AFTER  THE  1ST  SAMPLE 

0E23  FE 

01 

0153 

CPI 

1  BUFFER  THE  MODE  INFO 

0E25  CA 

38 

OE 

0154 

JZ 

PUTMODE 

0E28  FE 

08 

0155 

CPI 

8  ON  THE  8TH  SAMPLE,  PUT  OUT 

0E2A  CO 

0156 

RNZ 

THE  GAINS 

3E2E  2A 

30 

21 

0157 

LHLD 

TMPX 

0E2E  22 

29 

21 

0158 

SHLD 

6A1NX 

0E31  3A 

32 

21 

0159 

LDA 

TMPZ 

OE34  32 

28 

21 

0160 

STA 

GAINZ 

0E37  C9 

0161 

RET 

. 

OE38 

0162 

1 

0E38  21 

04 

21 

0163 

PUTMQDE  LX I 

H.MDBITS 

0E3B  3A 

33 

21 

0164 

LDA 

MODE 

0E3E  E6 

OF 

0165 

ANI 

OFH 

0E40  86 

0166 

ORA 

M 

0E41  77 

0167 

MOV 

M ,  A 

0E42  C9 

0168 

RET 

, 

0E43 

0169 

t 

0E43  2A 

37 

21 

0170 

SAVLOW  LHLD 

BXL  SAVE  ALL  LOW  BAIN  VERSIONS 

0E46  CD 

52 

OE 

0171 

CALL 

LGSTORE 

0E49  2A 

39 

21 

0172 

LHLD 

BYL 

0E4C  CD 

32 

OE 

0173 

CALL 

LSSTORE 

0E4F  2A 

38 

21 

0174 

LHLD 

8ZL 

0E52  11 

2C 

21 

0175 

LSSTORE  LX  I 

D.LSPTR 

0E55  C3 

58 

OE 

0176 

JNP 

MAGSTORE 

0ES3 

0177 

* 

0E58 

0178 

1  MAS  STORE  MECHANISM. 

0E58 

0179 

1  ON  ENTRY: 

CDEWSTQRABE  POINTER 

0E58 

01  BO 

t 

IHLI=  12-BIT  VALUE  TO  STORE 

0E58 

0181 

1 

0E58  11 

2D 

21 

0182 

A8ST0RE  LX  I 

D.AGPTR 

0E5B  1A 

0183 

MAG3T0RE  LDAX  D  UPDATE  THE  BUFFER  POINTER 

0E5C  C6 

VO 

0184 

ADI 

3  BY  THE  1  NIBBLES 

0E5E  12 

0185 

STAX 

D 

0E5F  87 

0186 

ORA 

A 

0E60  IF 

0187 

RAR 

DIVIDE  TO  SET  IBYTES 

0E61  5F 

0188 

MOV 

E,A  IDEI->BUFFER 

CE62  DA 

6E 

OE 

0189 

JC 

ODD 

0E65  29 

0190 

DAD 

H  ON  EVEN  STORES,  LEFT  ADJUST 

0E66  29 

0191 

DAD 

H  THE  12-BIT  VALUE 

0E67  29 

0192 

DAD 

H 

0E68  29 

0193 

DAD 

H 

0E69  EB 

0194 

XCHG 

• 

0E6A  72 

0195 

MOV 

M,D 

0E6B  23 

0196 

INX 

H 

0E6C  73 

0197 

MOV 

M.E 

0E6D  C9 

0193 

RET 

GE6E 

0199 

4 
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0E6E  EB 

0200  ODD 

,XCHG 

. 

E DEVALUE,  HL-7BUFFER 

0E6F 

0201 

MOV 

A,  D 

"OR"  THESE  BITS  INTO  BUFFER 

OE70  Ea  OF 

0202 

AN1 

OFH 

ON  THE  ODD  STORES 

0E72  B6 

0203 

ORA 

M 

0E73  77 

0204 

MOV 

M,A 

0E74  23 

0205 

INX 

H 

0E75  73 

0206 

MOV 

M.E 

0E76  C9 

0207 

RET 

, 

0E77 

0203  1 

(E:7 

0209  t  STORE  SAIN 

BIT  FROM  0TY  IN  MEMIDE3 

0E77 

0210  1 

0E77  1A 

0211  BAINSET  LDAX 

D 

IF  HI6AIN,  SET  CARRY 

0E78  Ea  SO 

0212 

ANI 

HI  GAIN 

ELSE  CLEAR  IT 

OE7A  CA  7E  OE 

0213 

JZ 

MG1 

0E7D  37 

3214 

STC 

0E7E  7E 

0215  MSI 

MOV 

A.M 

PUT  CARRY  INTO  MEMIHU 

0E7F  I7 

0216 

RAL 

0E8O  77 

0217 

MOV 

H,A 

0E81  13 

02  IE 

1NX 

D 

0E32  23 

0219 

INK 

H 

0E83  C? 

0220 

RET 

0E84 

0221  I 

0E84 

0222  4  SAMPLE  AND 

STORE  A 

TRIPLET 

0E34 

0223  » 

0E34  CD  8A  OE 

0224  TRIPLET  CALL 

SI 

0E37  CD  3A  OE 

0225 

CALL 

SI 

0E9A  OA 

0226  SI 

LDAX 

B 

SET  8TY 

0E3E  03 

0227 

IN* 

B 

0E3C  CD  Ea  00 

0228 

CALL 

SAMPLE 

0E8F  EB 

0229 

XCHG 

0E90  73 

0230 

MOV 

M,E 

0E91  23 

0231 

INK 

H 

0E92  72 

0232 

MOV 

M,  D 

0E93  23 

0233 

INK 

H 

0E94  EB 

0234 

XCHG 

• 

GE95  C? 

0235 

RET 

0EQ6  00 

V  0236 

DB 

257 

END-OF-MAG 

0E97 

0237  » 

0E97 

0236  1  ENTER  COMMAND  VECTOR  IN  TABLE 

OE97 

0219  1 

OE97 

0240 

ORS 

OF8H/4+CMDTAB 

007E  70  OD 

0241 

DM 

MAGCHD 

0080 

0242  1 

0090 

0243  1  RAM  SECTION 

0080 

0244  1 

0080 

0245 

ORG 

MABRAM 

2100 

0246  LGBUF 

DS 

3*12+4/3  LOW  GAIK  BUFFER 

2105 

0247  MDB1TS  EQU 

4-1 

MODE  BITS 

2105 

0248  A3BUF 

OS 

8*3*12/8  AUTO  GAIN  BUFFER 

2129 

0249  8A1NX 

DS 

l 

GAIN  BYTES  FOR  X.Y,Z 
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FAGE  06 


212A 

0250  GA1NY  DS 

1 

212B 

0251  G-1N2  DS 

1 

212C 

0252  1 

212C 

0253  LSPTP  DS 

1  LOW  GAIN  POINTER 

21 2D 

0254  AGPTR  DS 

1  AUTOGhIN  POINTER 

2122 

0255  OTFTF  DS 

1  OUTPUT  POINTER 

212F 

0256  SUPCNT  DS 

1  SAMPLE  COUNTER 

2130 

0257  TUFT  DS 

1  TEMP  BAINS  FOR  X.Y.Z 

2131 

0258  TMPY  DS 

1 

2132 

0259  TMPZ  DS 

1 

2133 

0260  MODE  DS 

1  MODE  BYTE  (4  BITS) 

2134 

0261  EXQTY  DS 

1 

2135 

0262  BYBTY  DS 

1 

2136 

0263  B2CTY  DS 

1 

2137 

0264  5XL  D5 

2 

2139 

0265  BYL  DS 

2 

213B 

0266  B2L  DS 

2 

21 3D 

0267  B<$AMP  DS 

2 

213F 

0260  BYSAHP  DS 

2 

2141 

0269  B2SAMF  DS 

T 

2143 

0270  4 

2143 

0271  1  DEFINE  HHERi 

:  MAG  SAMPLES  ARE 

2143 

0272  « 

2143 

0273  HA5DTA  EQU 

BXQTY 

2143 

0274  3QM 

MA6DTA 

2143 

0275  1 

2143 

0276  1  PUT  GAIN  LIMITS  IN  DSC  (0THERt3,43) 

2143 

0277  t 

2143 

0279  LIMITS  EQU 

024A6H 
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0000 

0001 

1 

0000 

0002 

>  CRPES  FLIGHT  PROGRAM— PLASMA  DATA  MANAGEMENT 

0000 

0003 

1  BITTEN  Bf  PETER  P  HARVEY 

0000 

0001 

1 

0000 

0005 

t  FILE  :  FLA. A  VERSION  6  (DEC  88) 

0000 

0003 

l 

0000 

0007  P3W  EO'J 

6  8085  SPECIFIC  INFORMATION 

to  00 

0008  SP  ECU 

a 

>,000 

0009 

1 

0000 

0010  HI GAIN  ECU 

ICH  HIGAIN  INDICATOR 

0000 

001  i 

BYAil?  ECU 

7  SPIN  AXIS  MEASUREMENT  AMPLIFIER 

0000 

0012 

1 

0000 

0013 

i  SHIFT  f £515 

7EP  DEFINITION 

0000 

00!  A 

» 

0000 

0015 

FOAL  ID  ECU 

3CH  PLA  CALCULATION  VALID  IF  1 

000  > 

001a 

FDISAB-L  EQL' 

60H  FLA  PACKAGE  DISABLED 

0000 

0017 

F5END  ECU 

40H  FLA  SENDING 

0000 

0018 

LPMODE  ECU 

•30H  IF  INSTRUMENT  INFO 

"000 

00 19 

LPFFEO  ECO 

CFH  LP  SAMPLING  FREQUENCY 

0000 

0020 

» 

0000 

0021 

MANT  ECU 

3FH  MANTISSA  FART  OF  RESULT 

000" 

0022 

SIGN  EC'J 

40rf  SIGN  OP  RESULT 

000'. 

0023 

OVER  ECU 

SOH  OVERFLOW  ERROR  EIT 

0000 

v024 

» 

0000 

0025 

1  ENTRY  POINTS 

0000 

0026 

1 

oc.o 

002? 

0R5 

Fla 

OEflB  c: 

A3 

OE 

002E 

JMP 

PLAINIT  INITIALIZATION 

05.  A  E  c: 

:o 

vt 

0029 

JMF 

PLA3AHF  SAMPLE  TIME 

0E9E 

0030 

1 

0E9E 

0031 

>  CETURN  DIGITAL  STATUS 

OE°E 

v032 

1 

0E9E  3A. 

58 

21 

0033 

PI.A9SC  Llv 

PHGDE  SHOW  THE  MOLE  PART 

OEAi  E4 

3r 

0034 

AN  I 

LFMCDE-LPFP.E8 

"EA3  2! 

59 

21 

0035 

IV. 

H.fSTAT  AND  INTERNAL  STATUS 

VEA6  Bt 

out 

ORA 

M 

9EA7  C9 

003? 

RET 

0EA8 

0038 

» 

«>EA9 

003- 

I  i S'l TJAL 1 2E 

T«E  FLASMA  PACKAGE 

OEAEj 

•;»)4o 

I 

OCAS  21 

50 

21 

0041 

PLAIN  IT  LYI 

H. PL  ARAM  CLEAR  ALL  VARS 

OEAB  OE 

OC 

0042 

IV I 

E.BXOFF-PLARAM 

LEAD  Cf 

004! 

RST 

ZERO'S 

OEAE  il 

r  3 

OF 

0044 

LYI 

D.INIOFF  COPY  INI T  OFFSETS 

UEB1  CE 

10 

0045 

MV  I 

C,GFF£NC-INIOFc 

oeb:  07 

0046 

RST 

COPY, 8 

0EB4  C9 

0047 

PET 

OEB: 

0049 

I 

C‘F.35 

0049 

1  PERFORM  PACKAGE  COMMANDS 

PAGE  01 
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OtB5 

0050  1 

0EB5  31 

EG  21 

0051  PL 

.ACM  STA 

P  MODE 

0EE9  07 

0052 

fiLC 

IF  ALG  DiSAE.E/ENAPLE  SET  IT 

0EB9  E 

0053 

R\ l 

EBA  Ei 

SO 

0054 

AN  I 

PDISAEL 

'EE :  32 

59  21 

0055 

STA 

FSTAT 

CEP-  C? 

005a 

PET 

OECO 

0057  • 

OECO 

0058  1 

SAMPLE  TIME 

i  ECO 

0059  1 

OECO  3A 

59  21 

OOeO  PLA3ANF  LDh 

F3TAT 

IF  DISABLED,  RETURN 

0EC3  Ed 

80 

0061 

AMI 

CDISABL 

0EC5  cc 

0062 

FWZ 

OECa  C5 

0063 

FLSH 

B 

0EC7  21 

5E  21 

0064 

LH 

H. TIMER 

ALTERNATE  BETWEEN  PARTI  AND  2 

OECA  34 

0065 

I  NR 

fl 

OECB  7E 

0066 

MOV 

A.M 

OECC  OF 

0067 

RFC 

OECD  52 

F4  OE 

0063 

JKC 

FART  2 

OEDO 

00a;  1 

OEDO  CD 

24  OF 

0070 

CALL 

CVTBX 

CONVERT  EF  INTO  r,T 

0ED3  21 

50  21 

0071 

SHLL 

hSCPx 

SAVE  hBS(  S'C  Bt  i 

CEE's  32 

56  21 

0072 

ETA 

SCAB/ 

0ED9 

0073  « 

0ED3  CD 

3C  OF 

0074 

CALL 

CVTBY 

CCNVEPT  BY  INTO  nT 

OEDC  22 

34  2! 

0075 

5HL0 

ASCBZ 

SAVE  AES'  S/C  BZ  i 

CEDE  3'3 

57  21 

0076 

STA 

53HB2 

0  EE  2 

007'  1 

0EE2  4f 

0078 

MOV 

C,A 

SAVE  ITS  SIGN 

0EE3  ;E 

OB 

0079 

MV  I 

A, 11 

MULTIPLY  BY  11/256  <.044  A'FX 

00 EC  EB 

0080 

tCHS 

CEE  a  CD 

Oh  06 

0051 

CALL 

MU2I 

CEE’  6C 

0082 

MOV 

l,H 

OEEh  67 

0083 

MOV 

H.h 

OEEB  7? 

0084 

MOV 

H,C 

OEEC  CD 

D5  OF 

0035 

CALL 

APPLY 

APPLY  SIGN 

CEEF  22 

52  21 

0086 

SHLD 

ASCBY 

SAVE  UIF255)ISC8Y 

0EF2  Cl 

0037 

PG? 

B 

0EF3  C9 

0083 

RET 

0EF4 

0089  I 

0EF4  CD 

30  OF 

0090  PART2  CALL 

CVTBZ 

CONVERT  BZ  INTO  nT 

)EF7  CD 

D5  OF 

0091 

CALL 

APPLY 

1HL1 -SIGNED  SCBZ 

OEFA  ED 

0092 

XCHG 

, 

ADD  IT  TO  SAVED  VAL 

OEFP  2A 

52  21 

0093 

LHLD 

ASCBY 

OEFE  19 

0094 

DAD 

D 

OEFF  CD  D4  OF 

0095 

CALL 

ABS16 

TAKE  ABSOLUTE  VALUE 

OF  02 

0096  t 

0F02  97 

0097 

SUB 

A 

CLEAR  "PSEND"  BIT 

0F03  32  59  21 

0099 

STA 

PSTAT 

OF 06  Cl 

0099 

POP 

B 
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-AGE  03 
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*• 


OF)  7 

29 

0100 

DAD 

CFOS 

BE 

i  101 

FC 

OF  OP 

29 

0102 

DAD 

C-FC-A 

D8 

0103 

PC 

OF  r 

*.  * 

0104 

HI 

OFOC 

L  C 

0105 

PC 

jp( 

3A  50 

«!  * 

o:  6 

LDA 

Or  i 

;5 

0 107 

SUB 

'p;i 

34  51 

..  * 

0135 

IDA 

•u 

)y 

Scs 

•fi: 

DS 

110 

p  ' 

■'Fli 

0111  1 

OF  16 

re 

L  J 

0112 

PL'SH 

Op  j  - 

22  41 

0- 

•'■113 

CALL 

If  1A 

rr  -• 

•  J 

0114 

CALL 

DFID 

Cl 

Oils 

FGC 

OFlE 

3E  4) 

0116 

MV! 

0F2n 

-i 

w  4. 

?< 
i  4 

3117 

ETA 

~  "N  - 
*.  ■> 

CP 

0118 

FET 

OF  2  4 

0119  » 

,'F24 

012)  1  C-'NV 

E PSION 

OF  24 

0121  1 

OF  24 

3A  3  ‘ 

0122  CVTB'i 

LDA 

OF  2  7 

2A  3D 

21 

0123 

LHLD 

F2A 

01  SC 

21 

0124 

JI 

0F2D 

C3  5F 

OF 

0125 

JHF 

0"30 

Olio  I 

0F30 

3  A  26 

nj 

0127  CVTbZ 

LDA 

of  3; 

24  41 

2! 

<123 

LHLD 

)F36 

01  68 

21 

0129 

HI 

CF39 

C3  59 

OF 

0130 

JNP 

0F3C 

0131  1 

0F3C 

3E  07 

0132  CVTBV 

KVI 

0F3E 

CD  E4 

02 

0133 

CALL 

OF  4 1 

CA  56 

OF 

0134 

c  L 

P  *4 

01  64 

21 

0135  AMPON 

LXI 

OF  47 

'30  5? 

OF 

0136 

CALL 

0=4  A 

4F 

0137 

nov 

vF  4  ? 

3E  27 

0138 

MV! 

CF4D 

EB 

91 39 

(CHS 

0F4E 

CD  OA 

Do 

0140 

C -LL 

OF  51 

63 

0141 

MOV 

OF  52 

o7 

0)42 

MOV 

OF  5  3 

T? 

0143 

MOV 

0F54 

IF 

0144 

CMA 

OF  5  5 

C: 

0145 

RET 

0F56 

0146  1 

0F56 

31  60 

21 

0147  AMFOFF  LSI 

0F59 

3A  35 

21 

0148  CGNBY 

LDA 

0F5C 

2A  3F 

21 

0149 

LHLD 

H  IF  ABBlSCB'OIS  >  ASS  (SC6D  RETURN 

H 

H 

mSCBX 

L 

ASSSM 

H 


8 

3CALC  CALCULATE  THE  VALUE  TO  SEND 

SE’F'LA 

6 

A.PiENJ  INDICATE  SENDING 
-  5  TAT 


ROUTINES 

BXQTY  CONVERT  6*  INTO  NANO TESLA 

B 7 SAMP 

R.SXOFF 

CONVERT  ASSIGN,  HL=MA6NI TUCE 

BZQTV 

BZShHP 

5.6'ZOFF 

CONVERT 

A,  STAMP  TEST  WHETHER  16  IS  OH 
IS  TMlJi 

ANPOFE  NO:  50 

B, 8VCF'+4  IF  AMPLIFIED 
CCHBV  CONVERT  1ST 

C, A  SAVE  SIGN  OF  8/ 

A, 39  SCALE  BY  39'256 

H'JCI 
L,H 
H.A 
A,  C 

•AMP  IS  INVERTING) 


E.BY3FF  IF  L’NAMFLIFIED 

BYQTY 

BYSAMP 


241 


UCB  SPACE  SCIENCES  LAB 
CRRES  FLIGHT  SOFTWARE  V2.1 


12-4-83 


PAGE  04 


OFEF  0150  I 

0F5F  0151  I  CONVERT  MA6NET0METER  SAMPLE  TO  NANOTESLA 

0F5F  0152  t  ON  ENTRY:  CAJ=  MU*  QTV  (HI  OR  LO  SAIN) 

0F5F  0153  I  IHL1=  VALUE 

0F5F  0154  t  C BC 3 -'’OFFSET  PAIR 


0F5F 

0155  t 

0F5F  Ed  10 

0154  CONVERT  AN1 

0F41  3E  00 

0157 

MV1 

0F43  C2  4A  OF 

0158 

JN2 

0F44  3E  33 

0159 

MV1 

0Ft>8  03 

0160 

1NX 

0F49  03 

0161 

INI 

0F4A  F5 

0162  CV1 

PUSH 

0F4B 

0163  1 

0F48  ?C 

0164 

MOV 

0F4C  FE  08 

01d5 

CPI 

0F6E  DA  74  OF 

0146 

JC 

0F71  F4  FO 

0167 

OR  I 

OF 7 3  67 

0168 

MQV 

0F74 

0169  CVPOS 

EQU 

OF  7  4 

0170  1 

OF 74  OA 

0171 

LDAX 

0F75  5F 

0172 

MOV 

OF 74  03 

0173 

1  NX 

0F77  OA 

0174 

LDAX 

OF 78  57 

0175 

MOV 

0F79  19 

0174 

DAD 

0F7A 

0177  1 

0F7A  7C 

0178 

MOV 

0F7B  32  5A  21 

0179 

STA 

0F7E  CD  D4  OF 

0180 

CALL 

OF 81  FI 

0131 

POP 

0F82  54 

0182 

MOV 

0F83  5D 

0183 

MOV 

0F84  CC  OA  04 

0184 

CZ 

0F87  CD  93  OF 

0185 

CALL 

0F8A  B7 

0184 

ORA 

0F8B  3A  5A  21 

0187 

LDA 

0F8E  C8 

018a 

RZ 

0F8F  21  FF  7F 

0189 

HI 

0F92  C9 

0190 

RET 

0F93 

0191  1 

OF 9 3  B7 

0192  DIV4 

ORA 

0F94  IF 

0193 

RAR 

OF 95  23 

0194 

INK 

0F94  CD  9B  OF 

0195 

CALL 

OF 9 9  B7 

0194 

ORA 

OF 9 A  IF 

0197 

RAR 

OF 9 3  4F 

0198  SRHL 

MOV 

0F9C  7C 

0199 

MOV 

HISAIN  IF  IN  LOW  GAIN.  MULTIPLY 

A,  0 

CV1  py  THE  SAIN  FACTOR 

A. 51 

B  AND  USE  THE  LO  OFFSET 

B 

PSW 

A, H  EXTEND  12  BITS  TO  14 
3 

CVPOS 

OFOH 

M 

$ 

B  ADD  OFFSET  FROM  HEMIBCI 

E.A 
B 
B 

D,  A 
D 

A,H 

TEMP  SAVE  SIGN 

ABS14  CONVERT  TO  POSITIVE 

PSW 

D, H 

E. L 

MU21  IF  LOW  BAIN,  AHL=AIDE 

DIV4  AHL=AHL/4 

A  IF  A  HAS  ANYTHING,  OVERFLOW 
TEMP  RETURN (SIGN) 

t 

H.7FFFH 


A  SHIFT  RIGHT  TWICE 

H  ROUND  OFF 

SRHL 

A 

C.A 

A.H 
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OF"*:  IF 

0200 

RAP 

CF3E  67 

0201 

NOV 

H,  A 

OF'F  70 

0202 

NOV 

A,L 

OF AO  IF 

.203 

FAR 

OFA1  6C 

0204 

NOV 

L.A 

•fa:  75 

0205 

mjv 

A.C 

FA3  C« 

0206 

RET 

OF  A  * 

0207 

1 

OFA4 

0203 

1  TINE  TO  WE  THE  CALCULATION  OF  BZ/BX 

0RA4 

020S 

«  CN  EXIT: 

E HL J  =  VALLE  TO  SEND  TO  LEPA 

'jfA4 

0  210 

1 

OF A 4  2A 

50 

21 

0211 

’CALC  LHLD 

ASCEX  H-ABS'BI/Zl/ABStEJ) 

OF A 7  EE 

0212 

KCH5 

•n 

x> 

co 

pj 

X* 

54 

21 

0213 

LHLD 

ASC8Z 

OFAB  37 

0214 

ORA 

A  SHIFT  RIGHT 

OF  AC  CD 

SB 

OF 

0215 

CALL 

SRHL 

OFAF  CO 

CA 

OF 

0216 

CALL 

8DIV  A=tHLl/rt£j  IB-BITS' 

CFB2  3C 

0217 

I  NR 

A  ROUND  OFF  LAST  BIT 

0FB3  B7 

0215 

ORA 

A 

0F?4  IF 

0219 

FAR 

. 

0FB5 

0220 

\ 

0FB5  FE 

40 

0221 

CFI 

NANT  +  I  IF  GREATER  THAN  NA'iTISSA 

0FB7  DA 

BE 

OF 

0222 

JC 

NNTOF.  CAN  BE, 

OFBA  U 

3F 

0223 

ANl 

NANT  NASA  NANT  BHS 

OFBC  F6 

eo 

0224 

OR  I 

OVER  THEN  SET  THE  OVERFLOW 

OF BE  5F 

0225  mJOK  NOV 

E , A  SAVE  THIS  IN  E 

OFBF 

0226 

» 

OFBF  3h 

56 

21 

0227 

LDA 

SSMBX  CONFUTE  THE  SIGN  DIFFERENCE 

0FC2  21 

57 

21 

0228 

LX  I 

H.S5NE2 

0FC5  AE 

0229 

m 

N 

•OF Co  7s 

0230 

NOV 

A,E  AND  INSERT  THE  PLA  SIGN 

Cf  C7  F2 

CC 

OF 

0231 

,JP 

rlapos 

OFCfi  F6 

40 

0232 

OF:  I 

SIGN 

OFCE 

0233 

FLAPOS  ECU 

i 

OFCC  6F 

0234 

NOV 

L.A  SEND  i'OI'E  AND  RESULTS  TO 

O-CD 

0235 

» 

OFCD  3A 

38 

21 

0236 

LDA 

PNODE  THE  LEPA  INSTRUMENT 

OFOO  F6 

30 

0237 

OP  I 

PVALI5  SIGNIFY  VALID  BZ/BX 

OFD2  67 

0238 

NOV 

H,  A 

OFD3  C9 

0239 

PET 

, 

OFC'4 

0240 

1 

OFD4 

C24 1 

1  ABSOLUTE 

VALUE 

OFD4 

0242 

« 

OFD4  7C 

0243  A5SI6  NOV 

A, H  IF  POSITIVE,  RETURN 

0FD5  B7 

0244  APPLY  ORA 

A 

OF 26  FO 

0245 

RP 

, 

0FD7  C3 

9B 

00 

0246 

JNP 

NES16  ELSE  CHL3*  -CHLJ 

OFDA 

0247 

1 

OFDA 

0248  1  QUICK  DIVIDER 

OFDA 

0249  t  A  =  CHLJ'COE]  TO  e  BITS 
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OFDA 

0250  » 

OF  DA  7A 

0251  0D1V 

MOV 

A.D 

IBC]=  -DIVISOR 

OFDB  2F 

0252 

CMA 

OF DC  47 

0253 

MOV 

B.A 

OFDD  78 

0254 

MOV 

A,E 

OFDE  2F 

0255 

CMA 

OFDF  4F 

0256 

MOV 

C|A 

OFEO  03 

0257 

INK 

B 

0FE1 

025B  1 

0FE1  3E  01 

0259 

MV1 

A,  1 

SET  MARKER  FOR  BTH  SHIFT 

0FE3  C3  E9  OF 

0260 

JMP 

8DIV1 

0FE6 

0261  1 

0FE6  17 

0262  QD1VN 

PAL 

. 

SHIFT  RESULT  INTO  ACCUM 

0FE7  D8 

0263 

RC 

, 

WHEN  MARKER  SETS  CRY.  RETURN 

OFEB  29 

0264 

DAD 

H 

SHIFT  REMAINDER 

0FE9  54 

0265  3D1V1 

MOV 

D,H 

SAVE  A  COPY  OF  REMAINDER 

OFEA  50 

0266 

MOV 

E.L 

OFEB  09 

0267 

DAD 

B 

REM=REM-D1V1S0R 

OFEC  DA  E6  OF 

0268 

JC 

QDIVN 

IF  POS.  RESULT5 1 

OFEF  EB 

0269 

KCHG 

, 

ELSE  RESULT -0,  GET  OLD 

OFFO  C3  E6  OF 

0270 

•IMP 

QDIVN 

REMAINDER  BACK  AGAIN 

OFF  3 

0271  t 

OFF 3  A5  FF 

0272  1N10FF  DU 

-91 

BKH.BKL  OFFSETS 

0FF5  FC  FF 

0273 

DM 

-4 

OFF 7  F4  FF 

0274 

DM 

-12 

8Y  AMP  OFF 

OFF 9  FE  FF 

0275 

DU 

-2 

OFF B  60  00 

0276 

DU 

+96 

BY  AMP  ON 

OFFD  01  00 

0277 

DU 

+1 

OFFF  EA  FF 

027B 

DU 

-22 

BZ 

1001  FE  FF 

0279 

DU 

-2 

1003 

02B0  OFFEND  ECU 

$ 

1003  00 

V  0281 

D8 

256 

END  OF  PLA  MODULE 

1004 

0282  1 

1004 

0283  1  ENTER  COMMAND  VECTOR  INTO  TA8LE 

1004 

0284  1 

1004 

0235 

ORG 

0D8H/4+CMDTAB 

0076  B5  OE 

0286 

DU 

PLACHD 

007  B 

0287  1 

0078 

0283  t  VARIABLES 

0073 

0289  t 

0078 

0290 

ORG 

PLARAM 

2150 

0291  ASC8X 

DS 

2 

ABSOLUTE  VALUES  OF  S/C  BX, BY, BZ 

2152 

0292  ASCBY 

DS 

2 

2154 

0293  ASC8Z 

DS 

2 

2156 

0294  S6N8J 

DS 

1 

SIGN  OF  8K 

2157 

0295  SGN3Z 

DS 

1 

SIGN  OF  BZ 

2158 

0296  PMODE 

DS 

1 

MODE  INFORMATION 

2159 

0297  PSTAT 

DS 

1 

PACKAGE  STATUS 

215A 

029B  TEMP 

DS 

1 

215B 

0299  TIMER 

DS 

1 
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rise 

0300 

3.1  OFF 

PS 

4 

2160 

0301 

5YCFF 

DS 

412 

2168 

0302 

EZDFF 

DS 

4 

21SC 

0303 

ENDPLA  E3U 

i 

2 1  iC 

0304 

t 

216C 

0305 

1  EXTERNAL 

DATA 

21  oC 

030o 

* 

216C 

0307 

C'RS 

MAC’D  T  A 

2134 

0309 

9/877 

DS 

1 

1 

MAG  M>J'<  ADDRESSES 

2135 

0309 

B-QTY 

DS 

1 

2136 

0310 

625TY 

DS 

i 

213? 

0311 

BUI 

DS 

fy 

L 

AND  LOW  SAMPLES 

2 13° 

0312 

BYL 

DS 

2 

21 3S 

0313 

E2L 

PS 

n 

L. 

212D 

0314 

EX SAMP 

DS 

n 

t. 

AND  AUTOGAIN  SAMPLES 

213F 

0315 

B'SAHP 

DS 

0 

l. 

2141 

0316 

8ZSAMP 

DS 

2 
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0000 

0001  t 

0000 

0002  i  fRFES  FLIGHT  SOFTWARE-— BURST  TRIGGERING  CONTROL 

0000 

0003  I  WRITTEN  BY  PETER  R  HARVEY 

0000 

0004  1 

oooo 

0005  I  FILE  BUR. A 

0000 

0006  1 

0000 

0007  PSW  ESU 

6 

0000 

0008  2P  EQU 

6 

0000 

0009  1 

oooo 

0010  1  BURST  PROCESSOR  COMMANDS 

oooo 

0011  1 

oooo 

0012  BGO  EQU 

0B400H  START  SAMPLING 

oooo 

0013  BSTOP  EDU 

OB500H  STOP  SAMPLING 

oooo 

0014  BPAUSE  EQU 

03600H  PAUSE  SAMPLING 

oooo 

0015  BCQNT  EQU 

0B700H  CONTINUE  SAMPLING 

oooo 

001 a  EPLAY  EQU 

CB800H  BEGIN  PLAYBACK 

oooo 

0017  BPESET  EQU 

OB°OOH  RESET  BURST 

oooo 

0018  1 

oooo 

0019  GRG 

BUR 

1008  C3 

17  10 

0020  3  HP 

BURINIT  INITIALIZATION 

100B  CO 

65  10 

0021  J HP 

BURSAMF  SAMPLING 

IOOE  C3 

38  11 

0022  3 HP 

f JRPLAY  PLAYBACK 

1011 

0023  t 

1011 

0024  I  RETURN  BURST  DIGITAL  STATUS  OF  MODULE 

1011 

0025  » 

1011  21 

70  21 

0026  BUPDSC  LX  I 

H.BURRAM 

1014  OF 

0027  RST 

REF '8 

1015  7E 

0028  HOV 

A,M 

1016  C? 

0029  CET 

1017 

0030  1 

1017 

0031  «  INITIALIZE 

THE  BURST  TRIGGERING  PACKAGE 

1017 

0032  1 

1017  <57 

0033  BURINIT  SUB 

A  CLEAR  Thc  PLAYBACK  FEQ'JEST 

1018  '2 

70  21 

0034  3TA 

KQDFREQ 

1011  22 

10  CO 

0075  LII 

H,  16  SET  DEFAULT  DURATIONS  SECOND! 

101E  22 

72  21 

.‘036  SHLj 

WAITTIME 

1021  C3 

44  03 

003 1  JMP 

RBURST  RESET  BURST  TO  START 

1024 

0038  1 

1024 

0039  «  PERFORM  TRIGC-EFRING  COMMANDS 

1024 

0040  t 

’024  11 

96  21 

0041  ALGCMD  HI 

D.ALGPAFlHS 

1027  C3 

20  10 

0042  JMF 

SETPARM 

102A  11 

71  21 

0043  CTLCHD  LX  I 

D.CTLPARMS 

1020  7C 

(044  SETPAR.H  HOV 

A.H  FJT  rHE  VALUE  INTO  REGISTER 

I02E  Ee 

03 

0045  ANI 

3  DESCRIBED  BY  THE  PEG  FIELD 

1030  EB 

0046  XCHG 

, 

1031  OF 

0047  RST 

REF/8 

1032 

0043  1 

1032  97 

0049  SUB 

A  CLEAR  TRIG  MODE 
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1033 

*2 

71 

21 

0050 

STA 

BTMODE 

T  j 

0051 

MOV 

M.E  SET  HEN  PARAMETER 

1037 

0052 

1 

1077 

3A 

71 

21 

0053 

LDA 

BTMODE  IF  ANY  TRIGGER  SELECTED 

103A 

E6 

07 

0054 

ANI 

ALGBITS  THEN  RESET  IT. 

103C 

33 

0052 

R2 

1070 

3E 

40 

0056 

START 

m 

fi.Rl 

103F 

CS 

AE 

1! 

0057 

CALL 

SE RHODE 

1042 

£7 

0058 

ORA 

A 

1047 

$7 

005? 

RET 

1044 

0060 

1 

1044 

07 

0061 

BURCMB  SUB 

A  CLEAR  TRIGGER  ON  ANY  DIPECT  COMMAND 

1043 

71 

21 

0062 

STA 

BTMODE 

104$ 

CO 

A? 

10 

0067 

CALL 

DOBUR  EXECUTE  COMMAND 

104B 

B7 

0064 

ORA 

A  RETURN  NO  CARRY 

104C 

C? 

0065 

EXIT 

RET 

1040 

0066 

1 

1040 

re 

0067 

DQBUF: 

NOV 

A.H  GET  THE  OBXH  COMMAND 

104E 

B9 

0068 

CPI 

BRESET/256  IP  RESET,  DO  IT 

1050 

CA 

17 

!0 

006? 

J2 

BLR1NIT  AND  CLEAR  THIS  PACKAGE 

1053 

FE 

B4 

0070 

CP  I 

B6Q/256 

1055 

CA 

3D 

10 

0071 

J2 

START 

1053 

FE 

£5 

0072 

CPI 

BSTOP/256 

105A 

CA 

E? 

10 

0073 

02 

TRIGGER 

1050 

FE 

B3 

0074 

CPI 

BPLAY/256 

ICS? 

CA 

IF 

13 

0075 

32 

STPLAY 

1062 

C3 

C7 
w  J 

n  •» 

0076 

OMP 

SEND 

1065 

0077 

1 

1065 

0073 

1  SAMPLE  CONDITIONS  TO  DECIDE  IF  HE  SHOULD  BURST 

1065 

0079 

I  OR  NOT. 

1065 

0080 

4 

1065 

CD 

A8 

11 

0081 

BURSAMP  CALL 

GETHODE  RETRIEVE  SAMPLING  MODE 

1069 

OF 

0082 

RRC 

106? 

OF 

0083 

RRC 

106  A 

OF 

0084 

RRC 

106E 

E6 

OE 

0085 

ANI 

742 

106D 

21 

73 

10 

0086 

LXI 

H. BSVECT 

1070 

n  ■* 

li 

05 

10 

0087 

JMF 

BEX 

1073 

0088 

» 

1**73 

4C 

10 

008? 

BSVECT 

ON 

EXIT  OFF 

1075 

CB 

10 

0090 

DN 

EIPTST  SEARCH 

1077 

01 

11 

0091 

DN 

BUPCOL  COLLECT 

1077 

16 

11 

0092 

DU 

BURNAIT  WAIT 

107E 

8D 

10 

0093 

DN 

BPl 

1070 

AO 

10 

009  A 

DN 

SR2 

307F 

B? 

10 

0095 

DN 

BR3 

1081 

33 

10 

00  9 1 

DN 

BRO 

1033 

0097 

t 

1083 

21 

7? 

21 

0098 

BF.O 

LXI 

H.TEMP  DELAYED  BPl 

108o 

35 

0099 

DCF. 

M 
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1087 

CO 

0100 

RNZ 

1088 

3E 

40 

0101 

MV  I 

A.R1 

108A 

C3 

AE 

11 

0102 

JMF 

SETMOOE 

1031- 

0103  » 

108D 

0104  »  RESET  TRIGGERING  (STAGES  1-3) 

109D 

0105  1 

1C8D 

21 

00 

84 

01 OA  BR! 

LTI 

H.B50  START  THe  BURST  GOING 

1090 

CD 

53 

03 

0107 

CALL 

SEND 

1093 

97 

0108 

SUB 

A  ZERO  THE  TEMP 

1094 

32 

79 

21 

0109 

STA 

TEMP 

1097 

3A 

71 

21 

0110 

LDA 

ETHODE  SAVE  WHICH  TRIGGER 

109A 

32 

BA 

21 

0111 

STA 

TR.IGR 

109C 

C3 

Cl 

11 

0112 

JHP 

INCMODE 

10A0 

0113  1 

10AO 

CO 

34 

03 

0114  BR2 

CALL 

RECEIVE  GET  THE  3  WORD  INFO 

10A3 

CS 

0115 

R2 

(IF  NOT  READY,  TRY  NETT  TIME) 

10A4 

3A 

70 

21 

01 1A 

LDA 

MODFRES  1ST  IS  THE  ‘REAL  FREQ"  INFO 

10A7 

E6 

FO 

0117 

ANI 

-1-FREQBITS 

10A9 

B5 

0113 

ORA 

L 

10AA 

32 

70 

21 

0119 

STA 

HQ0FRE8 

ICAO 

0120  1 

10AD 

CD 

B4 

03 

0121  BR2W 

CALL 

RECEIVE  NETT  IS  THE  TOTAL  DURATION 

10B0 

CA 

AD 

10 

0122 

JZ 

BR2H 

1083 

22 

BO 

21 

0123 

SHLD 

DURATION  WHICH  THE  BURST 

10BA 

C3 

Cl 

11 

0124 

JHP 

INCHQDE 

10B9 

0125  1 

10B9 

CD 

84 

03 

012A  BR3 

CALL 

RECEIVE  CAN  HOLD  IN  ITS  CURRENT 

10BC 

C8 

0127 

RZ 

10BD 

22 

32 

21 

012B 

SHLD 

DURAT ION+2  STATE. 

10C0 

21 

87 

21 

0129 

LTI 

H, ST  SAVE  TIME  WHEN  THINGS  BEGAN 

10C3 

CD 

EO 

11 

0130 

CALL 

SAVETIHE 

10CA 

3E 

10 

0131 

MV  I 

A, SEARCH  AND  BEGIN  SEARCHING 

10C8 

C3 

AE 

11 

0132 

JHP 

SETHODE 

10CB 

0133  1 

10CB 

0134  1  SEARCH  PHASE.  USE  COMMANDED  ALGORITHM  FOR  SEARCH 

10CB 

0135  t 

10CB 

3A 

71 

21 

013A  BURTST  LCA 

ETHODE  GET  THE  ALGORITHM  1 

10CE 

EA 

07 

0137 

ANI 

ALGBITS 

1000 

C3 

013B 

RZ 

. 

1001 

87 

0139 

ADD 

A 

1002 

21 

09 

10 

0140 

LTI 

H, BATABUE-2  REFERENCE  ALGORITHM 

1005 

OF 

0141  BET 

RST 

REF/8 

1006 

7E 

0142 

MOV 

A.H 

1007 

23 

0143 

INT 

H 

10DB 

AA 

0144 

MOV 

H,H 

1009 

AF 

0145 

MOV 

L»  A 

10DA 

E9 

014A 

PCHL 

• 

100B 

0147  1 

10DB 

E9 

10 

0148  BATABLE  DM 

TRIGGER  THE  TRIGGERING  ALGORITHM  LIST 

1000 

73 

11 

0149 

OH 

VALCHK 
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10DF  5P  11 

0150 

DM 

MAGCHK 

JOE  1  9F  11 

0151 

DM 

RAMALB 

10E3  11 

0152 

DM 

RAMAL6 

10E5  ?F  1! 

0153 

DM 

PAMAL5 

10E7  ?F  11 

0154 

DM 

RAHAL6 

10E9 

0155 

1 

ICE  9 

0156 

t  EVENT  TRI66ER 

10E9 

0157 

1 

ICE9  21  SC 

21 

0153 

TR16GER  LX i 

H.VT  SAVE  THE  TIME  OF  THE  EVENT 

10EC  CD  EO 

11 

015? 

CALL 

5AVET1ME 

10EF  2A  72 

21 

0160 

LHLD 

WAITTIME  SET  DELAY  FOP  THAT  COMMANDED 

10F2  22  73 

21 

0161 

SHLD 

DT1ME+1  AS  OPPOSED  TO  THE 

10F5  97 

Cl  62 

SUB 

A  MEMORY  CAPACITY 

10F6  32  7A 

'•>  < 

4.1 

0163 

STA 

DTI  ME 

10F9  32  7D 

21 

0164 

STA 

DTIME*3 

10FC  3E  20 

0165 

HV1 

A.  COLLECT  MDDE^CCLLECT- 

iOFE  C 3  SE 

11 

0166 

JNr 

SETMODE 

1101 

0167 

i 

1101 

0168 

1  COLLECTION  PHASE 

1101 

0169 

I 

1101  CD  C? 

11 

0170 

BURCOL  CALL 

CLKTICK  COUNT  1  CLOCK  TIME 

1104  DO 

0171 

RNC 

IF  NOT  TIME  TO  QUIT,  RETURN 

1105  21  00  B5 

0172 

HI 

H. ESTOP  COMMAND  THE  BURST  PROCESSOR 

1103  CD  53 

03 

0173 

CALL 

SEND  Tu  STOP  NOW. 

1106  21  91 

21 

0174 

LH 

H.ET  SAVE  THE  END  TIME 

HOE  CD  EO 

11 

0175 

CALL 

SAVETIME 

1111  3E  30 

0176 

nvi 

A, WAIT 

1113  C3  AE 

11 

0177 

jnp 

SETMODE 

1116 

0178 

i 

Ills 

0179 

4  WAIT  FOR  BURST  CPU  TO  PROCESS  ITS  MEMORY 

Ills 

0180 

1 

1116  CD  84 

03 

0181 

BURHAIT  call 

RECEIVE  SET  THE  READY  FOLLOWING  A  STOP 

111?  C8 

0182 

R2 

IF  NOT  THERE.  TRY  NEXT  TIME 

1 1 J  A  3E  00 

0183 

MV  I 

A, OFF  TURN  OFF  SAMPLING  SECTION 

U1C  CD  AE 

11 

0184 

CALL 

SETMODE 

11  IF 

0185 

1 

1UP 

0186 

1  START  PLAYBACK  SEQUENCE  IN  STANDARD  FORMAT 

11  IF 

0187 

t 

11  IP  21  00  B8 

0188 

STPLAY  LX I 

H.BPLAY  COMMAND  THE  BURST 

1122  CD  53  03 

0189 

CALL 

SEND  TO  PLAY  BACK 

1125  3E  81 

0190 

MV1 

A.0B1H  SET  THE  FORMAT  CODE 

1127  32  85 

21 

0191 

STA 

FORMAT 

112A  3E  85 

0192 

MV  I 

A , HE ADR • 256 / 256  PUT  OFFSET  ADDR 

112C  32  84 

21 

0193 

STA 

HD1NX  INTO  THE  HEADER  INDEX 

112F  3A  70  21 

0194 

LDA 

MODFFEO  START  UP  THE  PLAYBACK 

1132  F6  30 

0195 

CR1 

PLAY8IT  BY  TURNING  ON  ITS  BIT 

1134  32  70  21 

0196 

STA 

MGDFREQ 

1137  C9 

0197 

RET 

1138 

0198 

t 

1138 

0199 

1  RETRIEVE  PLAYBACK  DATA  FOR  THE  TELEMETRY  SYSTEM. 
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1138 

0200 

» 

1130  21 

04 

21 

0201 

BURPLAY  LX  1 

H.HDINX  IF  HD1NX  <  HDEND. 

1138  7E 

0202 

MOV 

A,M  THEN  OUTPUT  HEADER  INFO 

113C  FE 

9A 

0203 

CPI 

XHEADRI256/256 

113E  DA 

6D 

li 

0204 

JC 

BPHEAD 

1141  CD 

84 

03 

0205 

CALL 

RECEIVE  ELSE  GRAB  NEXT  DATA 

1144  CO 

0206 

PN2 

AND  RETURN (HL)  IF  THERE 

1145 

0207 

t 

1145  3 A 

70 

21 

0200 

ENFLAY  LDA 

MODFREQ  IF  THE  PLAYBACK  SUIT  A  WHILE 

1140  Efc 

90 

0209 

ANI 

PLAYB1T  BACK,  JUST  RETURN (0) 

1 14A  CA 

69 

11 

0210 

JZ 

ENPRO 

IMS  3A 

70 

21 

0211 

LDA 

MODFREQ  ELSE  REMOVE  PLAYBACK  REQUEST 

1150  Et 

7F 

0212 

ANI 

-I-PLAYBlT 

1152  32 

70 

21 

0213 

STA 

MODFREQ 

1155 

0214 

1 

1155  3E 

10 

0215 

MV  I 

A, 512732  DELAY  1/2  SECOND 

1157  32 

79 

21 

0216 

STA 

TEMP 

115A  3A 

71 

21 

0217 

LDA 

BTMDDE  IF  AUTO-SEARCH  MODE,  FESTART 

11 5B  E6 

80 

0213 

ANI 

AUTOSEhRCH  THE  SEARCHING 

U5F  3E 

70 

0219 

MV  1 

A,RO 

1161  C2 

66 

11 

0220 

JN2 

ENFNM 

1164  3E 

00 

0221 

MV  I 

A, OFF  ELSE  TURN  OFF 

llc6  CD 

AE 

11 

0222 

ENCHM 

CALL 

SETMODE 

1169  2! 

00 

00 

0223 

ENPRO 

LXJ 

H,0  RETURN (0>  AS  A  TRAILER 

116C  C9 

0224 

RET 

1141 

0225 

1 

116D  34 

0226 

BPHEAD 

INR 

M  HD1NX+*  FOR  NEXT  TIME 

116E  6F 

0227 

MOV 

L,A  IHLJ-/TH1S  BYTE 

116F  6E 

0228 

MOV 

L.M  CHL  J=BYT£ 

1170  26 

00 

0229 

MV1 

H.O 

1172  C9 

0230 

RET 

, 

1173 

0231 

1 

1173 

0232 

<  BURST  TRIGGER  SECTION 

1173 

0233 

1  VALUE  CHECKING  FOR  SAMPLE  >  THRESHOLD 

1173 

0234 

I 

1173  3A 

96 

21 

0235 

VALCHK  LDA 

MUX AD  SAMPLE  THE  MULTIPLEXOR 

1176  CD 

E6 

00 

0236 

CALL 

SAMPLE 

1179  29 

0237 

DAD 

H  SCALE  TO  0  BITS 

117A  29 

0230 

DAD 

H 

U7B  29 

0239 

DAD 

H 

117C  29 

0240 

DAG 

H 

117D  7C 

0241 

MOV 

A,H 

117E  CD 

0A 

11 

0242 

CALL 

ABS 

1101  67 

0243 

MOV 

H,A 

1182  3A 

97 

21 

0244 

LDA 

THRESHOLD  IF  THRES  <  SANPLE(HUXAD) 

1185  BC 

0245 

CMP 

H  CALL  THE  TRIGGER  START 

1104  DC 

E9 

10 

0246 

CC 

TR1G6ER 

1139  C9 

0247 

PET 

1 1 0A 

0248 

1 

110A  B7 

0249 

ABS 

ORA 

A 
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USB 

FO 

0250 

F'P 

nee 

2F 

0251 

CHA 

usd 

:c 

0252 

IHR 

A 

USE 

C9 

0233 

PET 

1 13" 

0254 

1 

113F 

0255 

1  PAG  CHECKING  ALGORITHM 

118F 

0256 

t 

U8F 

0257 

LCONE  EQL! 

4 OH  "LOSS  CONE  BIT' 

118F 

97 

025S 

MAGCHK  SUB 

A  GET  FLA  STATUS 

1190 

CD 

9E 

OE 

0259 

CALL 

PLABSC  AND  TRIGGER  WHEN 

1193 

Et 

40 

0260 

ANI 

LCONE  LOSSCONE  IS  BEGINNING  • 

1195 

C3 

0261 

R2 

, 

1196 

21 

/  *» 

21 

0262 

Utl 

H.TEMF 

1199 

3E 

•-263 

CMP 

M 

119A 

Co 

0264 

RZ 

119S 

77 

0265 

MOV 

M,A 

llfC 

L  j 

E9 

10 

0266 

JMP 

TRIGGER 

1 19F 

0267 

1 

11 9F 

0268 

1  RhM  algorhhm 

119F 

0259 

1 

119F 

7h 

75 

21 

0270 

PAMALG  LDA 

RAMCODE  CHECK  THAT  IT'S  LOADED 

11A2 

FE 

Ah 

0271 

CPI 

OAAH  OK 

1 1 A4 

CA 

't 

2! 

0272 

JZ 

RAHCODE+ 1 

1 1A7 

C9 

0273 

RET 

11A3 

0274 

1 

11A8 

0275 

1  UTILITIES 

1 1  AS 

0276 

1 

11  A3 

3rt 

70 

21 

0277  GETMGDE  IDA 

MODFREO  RETRIEVE  SAMPLING  MODE 

1  IhB 

Eo 

70 

02'8 

ANI 

SMFBITS 

HAD 

Cr 

027° 

RET 

UAE 

0280 

1 

11AE 

E6 

70 

028: 

SETMODE  AMI 

SHPB1TS  SET  SAMPLE  MODE 

11  BO 

E5 

0232 

FiJSH 

H 

1 1 B 1 

:F 

0283 

MOV 

L ,  A 

1182 

3A 

70 

n  < 
n 

02S4 

LDA 

MGDFREQ  INTO  THE  MCDE/FREQ  BYTE 

1185 

Eo 

8F 

0285 

ANI 

-1-SMPBlTS 

11B7 

B5 

0286 

ORA 

L 

1183 

32 

70 

21 

0237 

STA 

MODFREO 

11EB 

6F 

0288 

MOV 

L ,  A  NOW  FORM  A  FMODE  COMMAND 

11BC 

26 

D3 

0289 

MV1 

H, RHODE  TO  TELL  THE  PLASMA 

USE 

F7 

0290 

P.ST 

6  INSTRUMENT 

1  •  SF 

El 

0291 

POP 

H 

UCO 

C9 

0292 

RET 

11C1 

0293 

1 

11C1 

21 

70 

21 

029« 

INCMODE  LYl 

H, MODFREO  UPDATE  MODE  INTERNALLY 

1IC4 

7E 

0295 

MOV 

A,H  BUT  DON'T  TELL  LEFA  ABOUT 

11C5 

C6 

10 

0296 

ADI 

SMPBITS/7  C-BIT  FIELD) 

11C7 

77 

0297 

MOV 

A 

nee 

C9 

0298 

RET 

lie0 

0299 

1 
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IIC9 

0300 

1  CLOCK  TIMER, 

,  DECREMENTS  DTIME  BY  32  MILLISECGNDS 

IIC9 

0301 

1  RETURNS  NO  CARRY  IF  READY. 

11C9 

0302 

i 

11C9  11 

7A 

21 

0303 

CLKT1CK  LX  1 

D, DTIME  DECREMENT  THE  DELAY  TIMER 

1ICC  21 

DC 

11 

0304 

LXI 

H,  P32 

11CF  B7 

0305 

ORA 

A  CLEAR  CARRY 

1  IDO  CD 

D3 

11 

0306 

CALL 

SUB2 

11D3  CD 

06 

11 

0307 

SUB2  CALL 

SUBI 

1156  1A 

0308 

SUB1  LDAX 

D 

11P7  9E 

0309 

SBB 

M 

IID8  12 

0310 

STAX 

D 

11D9  13 

0311 

INX 

D 

1  IDA  23 

0312 

1NX 

H 

USB  C9 

0313 

RET 

HOC 

0314 

1 

11BC  20 

00 

0315 

P32  DN 

32 

I IDE  00 

00 

0316 

DM 

0 

11E0 

0317 

» 

1IE0  11 

1C  20 

0318 

SAVETIME  LXI 

DjSYSCLOCK  GET  5  BYTES  OF 

1IE3  OE 

05 

0319 

MVI 

C,5  THE  SYSTEM  CLOCK  AND  STORE 

11E5  D7 

0320 

RST 

COPY/8 

1IE6  C9 

0321 

RET 

11E7  00 

V  0322 

DB 

256 

I1EB 

0323 

» 

11E8 

0324 

1  ENTER  COMMAND  VECTORS  INTO  TABLE 

I1E8 

0325 

» 

11E3 

0326 

ORG 

OAOH/4+CHDTAB 

0068  2A 

10 

0327 

DM 

CTLCMD  1A0 

OOfcA  24 

10 

032B 

DM 

ALGCMD  IA8 

006C  44 

10 

0329 

DM 

BURCMD  IBO 

006 E  44 

10 

0330 

DM 

BURCMD  IB8 

0070 

0331 

t 

0070 

0332 

t  VARIABLES 

0070 

0333 

1 

0070 

0334 

ORG 

BURRAM 

2170 

0335 

MODFREQ  DS 

I  MODE  AND  FREQ  NIBBLES  (MMMMFFFF) 

2171 

0336 

SMPB1TS  E6U 

70H  SAMPLING  MODE  BITS 

2171 

0337 

PLAYBIT  EQU 

BOH  PLAYBACK  BIT 

2171 

033B 

FREQ81TS  EQU 

OFH  FREQUENCY  BITS 

2171 

0339 

OFF  ECU 

0  SAMPLE  MODE  VALUES 

2171 

0340 

SEARCH  EQU 

10H 

2171 

0341 

COLLECT  EQU 

20H 

2171 

0342 

WAIT  EQU 

30H 

2171 

0343 

RI  EQU 

4 OH  (RESETTING  STAGES) 

2171 

0344 

R2  EQU 

50H 

2171 

0345 

R3  EQU 

60H 

2171 

0346 

RO  EQU 

70H 

2171 

0347 

1 

2171 

0348 

CTLPARMS  EQU 

*  CONTROL  PARAMS  (4) 

2171 

0349 

BTMODE  DS 

1  BURST  TRIG6ER  MODE  BITS 
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2172 

2172 

2172 

2172 

2172 
217* 

2173 
2175 
2179 
217A 
217E 
2130 
21S4 
2185 
2185 
2185 

2135 
2185 

2136 
218? 
2  ISC 
2191 
2196 
21°A 
21SA 
219A 
219A 
219A 
219A 
219A 
219A 
219A 
219A 
219A 
0E93 
0E9B 
OE’E 


0350  ALSBITS  EQU 

7 

3  FRELAUNCH  ALGORITHMS  +  OFF 

0351  AUTOSEARCH  EQl 

)  80H 

AUTC-SEARCH  MODE  IF  1 

0352  PULSED  ECU 

40H 

PULSED  SAMPLING  MODE  IF  1 

0353  I 

0354  WAITTIME  D3 

2 

BURST  DURATION 

0355  SFARE  DS 

1 

0356  » 

0357  RAMCODE  DS 

4 

0358  TEMP  OS 

1 

0359  DTIME  DS 

4 

DELAY  TIMER 

0360  RFREQ  DS 

■j 

REAL  FREQUENCY  CODE  USED  BY  BURST 

0361  DURATION  DS 

4 

DURATION  READ  BACK  'MSEC) 

0362  HD  I NX  DS 

1 

HEADER  INDEX 

0363  1 

0364  1  PLAYBACf  HEADER 

STORED  IN  MEMORY 

0365  I 

0366  HEADR  EQU 

» 

0367  FORMAT  DS 

1 

FORMAT  CODE 

0368  TRIGR  DS 

1 

TRIGGER  ALGORITHM 

0349  ST  DS 

5 

START  TIME 

0370  VT  OS 

5 

EVENT  TIME 

0371  ET  DS 

5 

END  TIME 

0372  AL6PARMS  DS 

4 

0373  XHEADR  EQU 

$ 

1)374  i 

0375  MUXAD  EQU  ALGFARHS+O  TRIGGER  1  PARAMETERS 
0376  THRESHOLD  EQU  MUXAD+1 

0377  I 

0378  I  EXTERNAL  INFORMATION 

0379  I 

0330  SYSCLOCK  EQU  BKGRAH+O 


0381 

FMODE  ECU 

0D8H  FMODE  COMMAND  CODE 

0382 

1 

0383 

ORG 

PLA 

0384 

PLAINIT  DS 

3 

0385 

PLASAMP  DS 

3 

0336 

PLADSC  DS 

3 

PAGE  08 


253 


UCB  SPACE  SCIENCES  LAB  12-6-88 

CRRES  FLISHT  SOFTWARE  V2.I 


0000 

0001 

1 

0000 

0002 

1  CRRES  FLIGHT  SOFTWARE  —  SPIN  FIT  MANAGER 

0000 

0003 

1  WRITTEN  BY  PETER  R  HARVEY 

0000 

0004 

1  FILE  :  FIT. A 

0000 

0005 

l 

0000 

0006 

r MODE  ECU 

50H 

FIT  MODE  1 

0000 

0007 

VI  2D  I  EQU 

02H 

DISABLE  VI 2  FITS 

0000 

0008 

FITXHIT  E8U 

08H 

TRANSMIT  ENABLE 

0000 

0009 

FITDI  EQU 

20H 

DISABLE  FITS 

0000 

0010 

1 

0000 

0011 

FLT  EQU 

3 

3-BYTE  FLOATING  POINT 

oooo 

0012 

NULL  ESU 

40H 

NULL  FLOAT  VALUE  IN  2ND  BYTE 

0000 

0013 

NSAMPS  EQU 

32 

i  POINTS  PER  SPIN  FIT 

0000 

0014 

AVPTS  EQU 

4 

*  AHI/ALO  TO  AVERAGE 

CQOO 

0015 

71 AMS  EQU 

128+32 

DEGREES  FROM  SUN  PULSE  TO  START  1 

0000 

0016 

V3ANG  EQU 

V1ANG+1 

.28  START  734  FIT  1/2  SPIN  AWAY 

oooo 

0017 

1 

OOOO 

0018 

VI2F  EQU 

8  MAIN  MULTIPLEXOR  QUANTITIES 

OOOO 

0019 

V34  EQU 

15 

9000 

0020 

HIGAIN  Ei'J 

10H  HIGH  GAIN  INDICATOR 

OOOO 

0021 

t 

OOOO 

0022 

V12HEADER  ECU  0A1H  V12  HEADER  BYTE 

OOOO 

0023 

V34HEADER  EQU  0A3H  V34  HEADER  BYTE 

OOOO 

0024 

FILL  EQU 

0  BYTE  TO  USE  WHEN  NOT  SENDING 

oooo 

0025 

READY  EQU 

OAAH  READY  CGDE  IN  V12CUT/V340UT 

0900 

0026 

PLAY  EQU 

OBBH  PLAYING  CODE 

oooo 

0027 

DONE  EQU 

OFFH  FINISHED  CODE 

oooo 

C028 

« 

9900 

0029 

0R3 

FIT 

I1E3  23 

F4 

11 

0030 

JMP 

FITINIT 

11EB  C-3 

29 

12 

0031 

JMP 

FITSMP 

11  EE  C3 

A3 

12 

0032 

JMP 

FIT TEL 

1 1 F 1  C3 

DD 

12 

0033 

JMP 

FITEXEC 

1174 

0034 

t 

1IF4  21 

BO 

22 

0035 

FITINI7  LX I 

H; FI TVARS  CLEAR  ALL  VARS'PAPAMS 

11F7  OE 

07 

0036 

MV  I 

C.FVEND-FITVARS 

Uc9  CF 

0037 

RST 

ZERO  .'8 

UFA 

0038 

» 

UFA  21 

D7  22 

0039 

LX  I 

H, V12PRM  INIT  THE  V12  PARAMETERS 

11 FC  CD  03 

12 

0040 

LALL 

PRMINIT 

1200  21 

F8  22 

0041 

LXI 

H.V34PRM  AND  THE  V34  PARAMETERS 

1203  11 

20 

13 

0042 

PPNINIT  LXI 

D, IPARAM 

1206  OE  09 

0043 

MV  I 

C, IPRMX-IFARAM 

1208  D7 

0044 

RST 

COPY/8 

1209 

0045 

1 

1209  11 

18 

40 

0046 

TBLNULL  LXI 

D, NULL 1 256 +TBLN6  NULL  ALL  TABLE  ENTRIES 

120C  72 

0047 

CLEAR  MOV 

M,D 

120D  23 

0048 

INX 

H 

12vE  ID 

0049 

DCR 

E 
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12  jF 

C2 

oc 

12 

0050 

3NZ 

CLEAR 

1212 

C3 

0051 

RET 

1213 

0052 

1 

1213 

(•053 

1 

FI 

T  MODE  SETTING  CGMNAND 

1213 

0054 

1 

12.3 

5r 

0055 

FIT CUD  MOV 

£,A  A=E=ENABLE  BITS 

i  1 1 4 

29 

0056 

DAD 

H  SHIFT  DATA  BITS  LEFT 

1215 

A3 

0057 

ANA 

L  O-ENABLE  AND  DATA 

1216 

C  ? 
J  ■ 

0059 

HGO 

C,A 

1217 

7B 

0059 

NOV 

A.E  A=FITKODE  AND  (NOT  ENABLE) 

1213 

EE 

0060 

XRi 

V12DI-»FITDI 

!21A 

21 

B6 

-L  L 

006! 

LH 

H, FITMODE 

!  2 1 D 

HB 

0062 

ANA 

M  AND  WITH  THE  ENABLE  BITS 

12 1 E 

32 

0063 

ORA 

0  OR  WITH  ENABLED  BITS 

121F 

V 

0064 

MOV 

M,A  REPLACE 

1220 

0065 

» 

1220 

Eo 

02 

0066 

AN  I 

VI 20 I  IF  CHANGING  V12,  CLEAR  TABLE 

•.  ’)•>') 
li.Lt. 

CO 

0067 

RNZ 

* 

•  LL  . 

21 

EC 

22 

0068 

Hi 

H.V12TBL 

1  ", **,  L 

.  ki'J 

C3 

0- 

12 

0069 

jMF 

TBLNULL  (AND  RETURN  NO  CARRY) 

\  >29 

0070 

1 

122= 

0071 

» 

SPIN  SYNCHRONOUS  SAMPLING. 

1229 

0072 

1 

OH 

ENTRY: 

CAT-SUN  ANGLE 

1229 

0073 

I 

1229 

06 

AO 

0074 

FITSNP  Sill 

VIANG  REMOVE  SON  SENSOR  TO  BOOM  1 

I22B 

5F 

0075 

MOV 

E.A 

122C 

w  J 

07 

0076 

AN! 

256/NSAMPS-l  IF  NOT  TIME.  RETURN 

122E 

CO 

0077 

PNZ 

« 

122F 

3A 

Be 

0073 

L  DA 

FITMODE  IF  FITS  DISABLED.  RETURN 

i  •'*- 

.  4.  Ji. 

F6 

20 

0079 

AN  I 

FITDI 

1234 

CO 

00 80 

RNZ 

t 

1233 

CCS  I 

1 

1235 

n 

00E2 

MOV 

A.E  MANAGE  BUFFERS 

1236 

CD 

6B 

u 

0033 

CALL 

FIT5VNC 

1239 

0034 

1 

1239 

3E 

OF 

0085 

hvi 

A.V34  SAVE  A  SAMPLE  OF  V34 

1 2  38 

CD 

*0 

12 

0096 

CALL 

6ETSAMP 

123E 

3A 

B2 

22 

0087 

LEA 

V34IN 

12*1 

II 

30 

22 

0089 

i.n 

D, V34BUF 

1244 

CD 

3D 

12 

0089 

CALL 

STORE 

1247 

21 

B2 

22 

0090 

LXI 

H.V34IN 

124A 

CD 

64 

12 

0091 

CALL 

I  NCR 

124D 

0092 

» 

1 24D 

3  A 

B6 

22 

0093 

LDA 

FITMOCE  IF  V12  DISABLED,  60 

1250 

E6 

02 

0094 

AN  I 

V12DI 

1252 

CO 

0095 

RN: 

, 

1253 

:e 

03 

0036 

MV  I 

A.VI2F  SAVE  A  SAMPLE  OF  VI2 

1255  CD 

90 

12 

0097 

CALL 

6cT5MP 

1253 

jH 

BO 

*  n 

<1093 

LDA 

V 1 2 1  ‘4 

I25E 

II 

BO 

Zi 

00” 

HI 

D.V12BUF 
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125E  CO 

90 

12 

0100 

CALL 

STORE 

1261  21 

BO 

22 

0101 

LX  I 

H, V12IN 

1264 

0102  » 

1264  7E 

0103  1NCR 

MOV 

A,H 

1265  C6 

02 

0104 

A01 

2 

1267  E& 

7F 

0105 

AN  I 

7FH 

1269  77 

0106 

HOV 

H.A 

126A  C9 

0107 

RET 

126B 

0108  < 

126B 

0109  1  FITSi'NC:  ON  0  DEGREES  FOR  EITHER  BOOH,  SNITCH  BUFFERS 

126B 

0110  < 

126B  FE 

ao 

0111  F1TSYNC  CPI 

V3AN6-V1AN6  IF  V34  AT  0  DE6REES 

126D  21 

B2 

*5  9 

0112 

LXI 

H, V34 IN 

1270  CA 

7E 

12 

0113 

JZ 

FSY1 

1273  E7 

0114 

ORA 

A  IF  V12  AT  0  DE6REES 

1274  CO 

0115 

RNZ 

. 

1275  3A 

B6 

22 

0116 

LOA 

F1TH0DE  AND  NOT  DISABLED 

1278  E6 

02 

0117 

AN1 

VI  2D  I 

127A  CO 

0118 

RNZ 

. 

127B  21 

BO 

22 

0119 

LXI 

H.V12IN  RESET  V12QUTPUT 

127E 

0120  t 

m 

m 

0121  F5Y1 

HOV 

A.H  GET  THE  BUFFER  POINTER 

127F  E6 

3F 

0122 

AN1 

NSAHPS42-1  IF  FINISHED  WITH  BUFFER 

1281  CC 

89 

12 

0123 

CZ 

FBUFQK  THEN  SET  THE  OUTPUT  POINTER 

1234  7E 

0124 

HOV 

A , H  GOOD  OR  NOT,  CLEAR  THE 

1285  E& 

CO 

0125 

ANI 

-NSAHPSI2  LSB'S  OF  THE  INDEX 

1287  77 

0126 

HOV 

M,  A 

1288  C9 

(-127 

RET 

1289 

0128  1 

1289  7E 

0129  FBUFQK 

HOV 

A,H  SET  OUTPUT  POINTER 

12eA  EE 

40 

0130 

XR1 

NSAHPSI2  TO  THE  OTHER  BUFFER 

128C  2C 

0131 

I  NR 

L 

1280  77 

0132 

HOV 

H,A 

128E  20 

0133 

OCR 

L 

128F  C9 

0134 

RET 

1290 

0135  1 

1290  CD 

2A 

01 

0136  GETSAHP  CALL 

A6C  D=OTY  TO  SAMPLE 

1293  7A 

0137 

HOV 

A,  D 

1294  CD 

E6 

00 

0138 

CALL 

SAMPLE  TAKE  IT 

1297  7A 

0139 

HOV 

A,D  PUT  THE  GAIN  BIT  INTO  CHU 

1298  E6 

10 

0140 

ANI 

HIGA1N 

129A  B4 

0141 

OFA 

H 

129B  67 

0142 

HOV 

H,  A 

129C  C9 

0143 

RET 

1290 

0144  1 

1290  EB 

0145  STORE 

XCHG 

DATA  TO  DE 

129E  OF 

0146 

RST 

REF/8 

129F  73 

0147 

HOV 

M,E 

12A0  23 

0148 

INX 

H 

12A1  72 

0149 

HOV 

M,  D 
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12A2  CP 

0150 

PET 

12A3 

0151 

1 

12A3 

0152 

1  FIT  TELEMETRY  OUTPUT. 

12A3 

0153 

1  ON  EXIT:  DA]  =  DATA  OR  0  FILL 

12A3 

0154 

I 

1IA3  21 

B4 

•n 

LL 

0155 

F1TTEL  LX  1 

H, COUNT  IF  NO  DATA  REMAINING 

12A6  7E 

0156 

7,0V 

A,  H 

12 A?  87 

0157 

DRA 

A  THEN  CHECK  IF  HOPE  REACT 

12A8  CA 

B3 

12 

0158 

JZ 

CHKDONE 

12AB  35 

015P 

DlP 

(1  ELSE  COUNT-- 

12AC  21 

B5 

r  n 

L  L 

0160 

LX  1 

H,  PTR  RETURN  THE  NEXT  DATA  KEN 

12AF  34 

0161 

I  NR 

N 

12 BO  *E 

0162 

MOV 

L,N 

1281  7E 

0163 

NOV 

A,N 

12B2  CP 

0164 

RET 

12B3 

0165 

t 

12B3  21 

B1 

22 

0166 

CHI. DONE  LX  I 

H.V12QUT  IF  OUTFUT  STATUS^EADV 

12E:  16 

Hi 

0167 

nvi 

D, V12HEADER 

1238  IE 

B6 

0166 

MV  I 

E.V12RESI256/256-1 

12BA  7E 

0169 

,10V 

A.N 

1281  FE 

Ah 

0170 

2F1 

READ/ 

12BD  CA 

DO 

12 

0171 

•iZ 

STARPLAY 

12C0 

0172 

« 

12C0  21 

»• 

»• 

22 

0173 

L  V 1 

H.V340UT 

12C3  li 

A3 

0174 

NVI 

0.V34HEADER 

12C5  IE 

C6 

0175 

NVI 

E.V34RE 31256/ 256-1 

12C7  7E 

0176 

MOV 

A.M 

12C3  PE 

AA 

0lT7 

CFI 

READY 

12CA  CA 

DO 

12 

0178 

j; 

STARPLAY 

12CD  :e 

00 

017P 

NVI 

A,  FILL 

!2CF  CP 

0180 

RET 

12  DO 

0181 

1 

7200  36 

0192 

STAFPLAV  HV1 

H, DONE  CLEAR  THE  READY  FLAG 

12D2  'B 

0193 

NOV 

A.E  SET  THE  POINTER  TO  OUTPU’  BUFFER 

1203  32 

B5 

nr 

Ll 

01B« 

STA 

PTF; 

1236  3E 

10 

0135 

"VI 

A.V34RES-V12RES  SET  COUNT =LENGTH  OF  RESULTS 

1200  32 

B4 

nn 

0186 

STA 

COUNT 

12DB  7A 

0187 

NOV 

A.D  RETURN  HEADER  CODE  TO  BEGIN 

12 DC  C9 

0193 

RET 

12CD 

018° 

« 

HDD 

0190 

1  EXECUTIVE  FIT  CALCULATOR  (FOREGROUND) 

12DD 

01P! 

1 

1200  3A 

81 

22 

0192 

FITEXEC  LCA 

V120UT  IF  OUTFUT  BUFFER  IS  READY 

12E0  B? 

0193 

ORA 

A 

12E1  F2 

PE 

12 

0194 

JP 

F  IT  12 

12E4 

0195 

1 

12E4  3A 

B3 

22 

0196 

LDA 

V340UT  CHECK  V34’S  PUFFER  TOO 

12E7  87 

0197 

ORA 

A 

12E8  F8 

0198 

RN 

• 

12EP 

0199 

1 

PAGE  04 
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12E9  Cl 

30  22 

0200  FIT34 

LXI 

H,  V34BUF 

12EC  CD 

13  13 

0201 

CALL 

STFIT 

12EF  01 

r;  2; 

0202 

L>  i 

B.V34RES 

12F2  11 

FB  22 

0203 

LX  i 

D.V34FRN 

12F5  CD 

>34  OS 

0204 

CALL 

SPIN 

12FS  :e 

AA 

0205 

HVI 

A,  READY 

12rA  22 

B3  22 

0206 

STA 

034  QIJT 

12FD  C’ 

0207 

RET 

12FE 

0208 

» 

12rE  21 

BO  21 

0209 

FIT  12 

LXI 

H.V12PUF 

i:  i  cc 

13  13 

0210 

CALL 

STFIT  tHL3->SANPLE  AREA 

1304  0! 

?7  22 

0211 

LXI 

B.V12RE3  [ECI-' RESULTS  AREA 

130?  11 

D7  22 

0212 

LX  I 

D.012FRM  [DEI-  PAPAHS  AREA 

130 A  CD 

C4  09 

0213 

CA.L 

SPIN 

130D  3E 

AA 

0214 

NVl 

A.  READY 

130F  32 

81  22 

0215 

=  TA 

V120UT 

1312  C* 

0216 

PET 

1313 

"217 

1 

1313  IF 

0218 

STF1T 

FST 

REF/8  CHL3- 'SAMPLES 

131-  3 A 

36  22 

0219 

LDA 

FITMOSE  IF  TRANSMIT  ENABLED.  DO  1T 

1317  E5 

OB 

0220 

AN! 

FITXH1T 

1319  C3 

0221 

Pi 

, 

131A  11 

20  00 

0222 

LXI 

O.NSAHPS  CDEI-4SAHFLES 

no  C3 

CF  13 

0223 

JNP 

ElEXMIT  TFANSN1T  THEN 

1320 

0224 

1 

1320  2? 

0125 

1PRRAM 

DB 

3BH  LO  GAIN  =  1/50.9  HIGhIN 

1321  AO 

0225 

DB 

OAOH 

1322  F2 

022? 

Dr 

0F2H 

1323  41 

0229 

DB 

04 1H  ALPHA  =  1. 40 

1324  Eo 

■»229 

DB 

OEeH 

1325  06 

0230 

DB 

06oH 

l32o  3F 

0231 

DS 

03FH  BETA  =  0.4 

1327  CC 

0332 

DB 

OCCH 

1328  CO 

0233 

DB 

OCDH 

1329 

0234 

IRFNX 

EO'J 

4 

1329  00 

V  0235 

DB 

256  END  OF  FIT 

132A 

0235 

1 

132A 

0237 

1  ENTER  COMMAND  VECTOR  INTO  TABLE 

I32A 

0238 

t 

132A 

0239 

CPS 

FM3DE/4*CNDTAB 

0054  13 

12 

0240 

Dk 

FITCND 

0056 

0241 

1 

0056 

0242 

»  RAN 

>354 

0243 

1 

0056 

0244 

ORG 

FITRA* 

21  BO 

0245  SNPBUF  ECU 

*  SAMPLES  BUFFER 

21  BO 

0246  V12PUF  DS 

NSANFSI2I2 

2230 

0247 

V!5f!JF  DS 

NSAHFSI212 

22B0 

0243 

1 

2260 

0249  FITVhRS  ECU 

* 
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BASE  OS 


22BO 

0250  V12IN  ES 

22BI 

0251  V120UT  DS 

22B2 

0252  V34IN  DS 

2283 

0253  V34QUT  DS 

22B4 

0254  COUNT  DS 

22B5 

0255  FIR  DS 

22E6 

025 S  FITMODE  DS 

2137 

0257  EVENS  EQ'J 

22  E7 

0258  1 

22B7 

0259  VJ2RE5  OS 

22C7 

0260  V34P.ES  DS 

22D7 

0261  1 

22D7 

0262  TELNG  EQU 

Z2D7 

0263  V12PP.H  DS 

22EO 

0264  V12TBL  DS 

22F8 

0265  V34PFH  DS 

2301 

0266  V3-4TBL  DS 

231? 

■?26?  4 

231 1 

0268  1  EXTERNALS 

231? 

026?  t 

.319 

0281  SLEXillT  ECU 

1 

1 

I 

I 

I  COUNT  OF  BiTES  TO  SEND  OUT 
I  POINTER  ■[.  RESULTS 
I  ENABLE /LI SABLE  BITS 
} 

54FLM  RESULT  AREAS 
5IFLTM 

AVPTSI2 JFLT  AHi/ALO  TABLE  LENETH 

34FLT  PARAMETER  AREA 

TBLI16  AHI/ALO  TABLE  AREA 

T-IFLT 

TBLN3 


ELE+15 
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0000 

0001  1 

0000 

0002  1  CRRES  FLI6HT  SOFTWARE  —  SAWTOOTH  SENERATOR 

0000 

0003  *  WRITTEN  B Y  PETER  R  HARVEY 

0000 

0004  1 

0000 

0005  1  FILE  SAW. A 

0000 

0006  < 

0000 

0007  PSW 

EQU 

6 

0000 

0008  SAWCODE  ESU 

05SH 

0000 

0009  t 

0000 

0010 

ORS 

SAW 

1330  C3 

jC  1 3 

001 1 

JHP 

SAWINIT 

1333  C3 

5F  13 

0012 

JMP 

SAWSTEP 

1336 

0013  1 

1336  21 

A4  21 

0014  SAWDSC  LX I 

H,SAWOFF 

1339  DF 

0015 

RST 

REF/8 

133A  7E 

0016 

MOV 

A,  H 

133B  C9 

0017 

RET 

133C 

0018  1 

133C  11 

E5  13 

0019  SAWINIT  L XI 

D. DEFALT  SET  DEFAULTS 

133F  21 

A4  21 

0020 

LXI 

H.SAWOFF 

1342  OE 

06 

0021 

MV1 

C,6 

1344  D7 

0022 

RST 

COPY/8 

1345  C9 

0023 

RET 

1346 

0024  1 

1346 

0025  1  PERFORM  SAWTOOTH  COMMANDS 

1346 

0026  1 

1346  7C 

0027  SAWCMD 

m 

A,H  SELECT  WHICH  REG 

1347  E6 

07 

0028 

AN  I 

7 

1349  5D 

0029 

MOV 

E,L 

134A  21 

A4  21 

0030 

LXI 

HjSAWOFF  REFERENCE  OPTIONS 

134D  DF 

0031 

RST 

REF/8 

134E  73 

0032 

MOV 

M,E  STORE 

134F  C9 

0033 

RET 

1350 

0034  1 

1350 

0035  1  SAWTOOTH  SYNCHRONIZER 

1350 

0036  1 

1350  21 

AO  21 

0037  SAWSYNC  LXl 

H. BIASRES  LATCH  IN 

1353  11 

A4  21 

0038 

LXl 

D, SAWOFF  THE  COMMANDED  VALUES 

1356  OE 

04 

0039 

MV  I 

C.4 

1358  D7 

0040 

RST 

COPY/8 

1359  3E 

01 

0041 

MV  I 

A,  1  AT  NEXT  STEP,  RESET  BIAS 

135B  32 

A3  21 

0042 

STA 

DIVCNT 

135E  C9 

0043 

RET 

135F 

0044  1 

135F 

0045  1  SAWTOOTH  STEP 

135F 

)046  1 

135F  3A 

A5  21 

0047  SAWSTEP  LDA 

SAWDEL  IF  NO  DELTA.  THEN 

1362  B7 

0048 

ORA 

A  THIS  PACKAGE  IS  DISABLED 

1363  C8 

0049 

RZ 

( 

l 
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1364 

0050  1 

1364  3A  ID  20 

0051 

LDA 

FRAME  ON  FRAME  30,  LAST  LINE 

1367  F£  RE 

0052 

CPI 

-2  PERFORM  A  SYNC 

1369  C2  74  13 

0053 

■3N2 

SSOPT 

136C  3A  1C  20 

0054 

LDA 

WORD 

136F  FE  EO 

0055 

CPI 

224 

1371  D4  50  13 

0056 

CNC 

SAWSYNC 

1374 

0057  > 

1374  3A  A8  21 

0059  SSOPT 

LDA 

OPTIONS  IF  STEPPING  DISABLED,  GUIT 

1377  OF 

0059 

PRC 

1373  DO 

0060 

PNC 

1379 

0061  1 

1379  21  A3  21 

0062  STEP 

LX  I 

H.DIVCNT  DIVIDE  STEPS 

137C  35 

0063 

DCR 

M 

137D  CO 

0064 

RN7 

137E  3A  A7  21 

0065 

LDA 

BAWD IV  THEN  RELOAD 

1391  77 

0066 

MOV 

M,A 

1352 

0067  t 

1382  3A  A3  21 

0068 

LDA 

OPTIONS  IF  BIASING  ALLOWED 

1385  E6  02 

0069 

AN1 

2  DO  IT 

1337  C4  A5  13 

0070 

CNI 

BIASEM 

13SA 

0071  I 

133A  21  A2  21 

0072 

LX  I 

H.PERCNT 

133D  35 

0073 

DCR 

M 

138E  CA  9A  13 

0074 

JZ 

FLIP 

1391 

0075  » 

1391  3A  A1  21 

0076 

LDA 

DEL REG  BIASREG  *=  DELREG 

1374  21  AO  21 

0077 

LX  I 

H, BIASREG 

1397  86 

0078 

ADD 

M 

1398  77 

0079 

HGV 

H,A 

1399  C9 

0080 

RET 

139A 

0081  4 

139A  3A  A6  21 

0082  FLIP 

LDA 

SAWPER  RESET  PERIOD  REGISTER 

139D  77 

0083 

MOV 

M.A 

139E  21  A1  21 

0084 

L  X I 

H. DELREG  DELREG  =  -DELREG 

13AI  97 

0035 

SUB 

A 

13A2  96 

0086 

SUB 

H 

13A3  77 

0087 

MOV 

H,  A 

13A4  C9 

0088 

RET 

13A5 

0089  1 

13A5  2A  AO  21 

0090  BIASEN  LHLD 

BIASREG 

13A8  3A  A9  21 

0091 

LDA 

SENSOR 

13AB  67 

0092 

MOV 

H,A 

13AC  E5 

0093 

PUSH 

H 

13AD  CD  63  01 

0094 

CALL 

SETBIAS 

1380  El 

0095 

POP 

H 

1381  24 

0096 

INP 

H 

13B2  C3  63  01 

0097 

JMP 

SETBIAS 

13B5 

0098  1 

13B5 

0099  1  DEFAULT  SETTINGS  FOR  SAWTOOTH 

FARE  02 
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1 3B5  0100  1 

13B5  00  0101  DEFALT  DP  0  OFFSET 

13B6  02  0102  DB  2  DELTfc  (PKG  ENABLE  TOO) 

1387  40  0103  DB  64  I  STEPS  UP  THEN  DOWN 

13BB  02  0104  DB  2  64/N  HZ  STEPS 

13B9  00  0105  DB  0  STEPPING/BIASING  DISABLED 

13BA  01  0106  DB  1  SENSORS  1  AND  2  6ET  SAWTOOTH 

17BE  00  V  0107  DB  256  SAWTOOTH  END 

13BC  01  OB  I 

13BC  0109  «  ENTER  COMMAND  VECTOR  INTO  TABLE 

13BC  0110  I 

13BC  0111  OPS  SAWCODE'4+CNDTAB 

005s  46  13  0112  DW  SAWCMD 

0056  0113  I  I 

0058  0114  I  SAWTOOTH  VARIABLES 

0058  0115  I 

0059  0116  ORB  SAWF:AH 

21  AO  0117  B1ASREG  DS  1  CURRENT  BIAS  VALUE 

21A1  0113  DELREG  DS  1  CURRENT  DELTA 

21A2  0119  PERCNT  DS  1  PERIOD  COUNTER 

21A3  0120  D1VCNT  DS  1  DIVIDER  COUNTER 

21A4  0121  I 

2 1 A4  0122  SAWOFF  DS  1  SAWTOOTH  OFFSET 

21A5  0123  SAWDEL  DS  1  DELTA  (IF  ZERO.  PI'S  DISABLE) 

2! AS  0124  SAWPEP  DS  1  ISTEPS  UP 

21A7  0125  SAWD1V  DS  1  DIVIDER  OF  CALLS 

21A3  0126  OPTION  DS  1  . BS  (6=B1AS  ENABLE.  S=STEP  ENABLE) 

21 A9  0127  SENSOR  DS  1  WHICH  BIAS  FAIR  (1  OR  3) 

21AA  0128  SPARE  DS  2 

21AC  1 1 29  I 

21  AC  0130  ORG  BKSRAM  ACCESS  SYSTEM  CLOCK 

20 1C  0131  WORD  DS  1 

20 ID  0132  FRAME  DS  1 
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i 


0000 

0001 

1 

0000 

0002 

1  CRRES  FLIGHT  PROGRAM — ELECTRIC  FIEL3  MANAGEME! 

0000 

0003 

1  WRITTEN  BY 

PETER  R  HARVEY 

0000 

0004 

1 

00  •) 

0005 

i  FILE  :  ELE. 

A 

0000 

0006 

1 

0000 

0007 

PSW  EQU 

*  3085  SPECIFIC  INFORMATION 

0000 

0008 

5P  EQU 

0 

0000 

0009 

1 

0000 

0010 

1  FAST  DIGITAL  MONITOR  DEFINITION 

0000 

0011 

1 

0000 

0012 

MBITS  ECU 

OOFH  MAIN  STATUS 

0000 

)013 

BBITS  EQU 

OBOH  BURST  STATUS 

0000 

0014 

TESTFLAG  EQU 

4vH  TEST/CAL  MODE  BIT 

0000 

0015 

HODEFLAG  EQU 

I  VOLTAGE /CURRENT  MODE  BIT 

0000 

00  li 

0LAYFLAS  EQU 

80H  PLAYBACK  ENABLE  BIT 

0000 

0017 

HB»f1IT  EQU 

8  MAIN  TRANSMIT  OVERRIDE 

0000 

0018 

1 

(•■'00 

0019 

MUZ  EQU 

2800H  MUZ  SETTING  CMD 

0000 

0020 

RESET  EQU 

3000H  RESET  RELAY  CMD 

oooo 

0(21 

SET  EQU 

RESET ♦ 100H 

0000 

0022 

» 

00(0 

0023 

ORG 

ELE 

loco  ::  [6 

13 

0024 

JMP 

ELEINIT  INITIALIZATION 

nc:  c:  3? 

14 

0025 

JMP 

ELEFRAME  MINOR  FRAME  SYNC 

1 30  a  C3  6A 

1  C 

4  J 

002  a 

JMF 

ELESAMP  SAMPLE  TIME 

133°  c:  31 

15 

0027 

JMF 

EcETElEH  TELEMETRY  TIME 

133C  CJ  i 2 

15 

0028 

JMP 

eledsc  digital  su&coh  time 

lie-  C3  2E 

16 

0029 

JM? 

ELE7MIT  REQUEST  MAIN  PLAYBACK 

0030 

l 

1302  ;a  77 

20 

0031 

ELE5TAT  LDA 

FDM  RETURN  FA5T  STATUS 

1333  C9 

0032 

PET 

1320 

0033 

1 

l3Df 

0034 

1  INITIALIZE  THE  ELECTRIC  FIELD  PACKAGE 

1336 

0035 

1 

I 3Dc  21  30 

20 

0036 

ELEINIT  LYI 

H, ELERAM 

I3D=  OE  05 

0037 

MVI 

C.tLEND-ELERAM 

133?  CP 

0038 

RST 

ZERO/ 8 

13DC  C9 

0039 

RET 

1303 

0040 

« 

1330 

0041 

t  PERFORM  ELECTRIC  FIELD  CATEGORY  COMMANDS 

1330 

0042 

1 

r.D3  7C 

0043 

SOD  MOV 

A.H  A=MU7  NUMBER 

I33E  Ea  07 

0044 

AN  I 

7  CHECk  IF  IT'S  AN  ELE 

13E0  07 

0045 

CPI 

7  CONTROLLED  REGISTER. 

::e2  :f 

0046 

CMC 

IF  NOT  0-6,  ERROR. 

1 3E3  33 

0047 

RC 

, 

HE  4  33  CC 

02 

0048 

JMP 

SETMUY  l -VALUE  ALPEA3Y 

13E7 

0049 

l 

PA6E  01 


263 


UC8  SPACE  SCIENCES  LAB 
CRRES  FLIGHT  SOFTWARE  V2.1 


12-6-38 


PAGE  02 


13E7 

7C 

0050 

PLCttD 

MOV 

A.H  CRY= 1  TD  SET  RELAY 

13E8 

CF 

0051 

RRC 

t 

13E9 

7D 

0052 

HDV 

A.L  A=RELAY  NUMBER  TD  FLIP 

13EA 

C3 

B8 

01 

0053 

JHP 

SETRELAY 

1  TED 

0054 

« 

13ED 

7C 

0055 

SETRB 

HDV 

A.H  SAVE  3  BITS  OF  HS  8YTE 

13EE 

Et 

07 

0056 

AN1 

7 

13F0 

F6 

20 

0057 

OR  I 

ELERAH/204812048/256  TAKE  5  HSB’S 

13F2 

67 

0058 

HDV 

H.A  DF  THE  RAH  ADDRESSING 

13F3 

22 

50 

20 

005? 

SHLD 

RAHBASE  SET  THE  RAH  BASE  ADDRESS 

13F6 

C9 

0060 

RET 

13F7 

0061 

* 

13F7 

C6 

3E 

0062 

SETHD 

ADI 

TESTFLA6-2  MOVE  TEST  FLAG  OVER 

13F9 

32 

94 

20 

0063 

STA 

FDHNEXT 

13FC 

OF 

0064 

RRC 

. 

I3FD 

11 

OA 

14 

0065 

LH 

D.VHLI3T 

1400 

D2 

06 

14 

0066 

JNC 

SHI 

1403 

11 

1C 

14 

0067 

LX  1 

D, IHLIST 

1406 

3E 

01 

0068 

Shi 

HVI 

A,  1  ASK  FOR  INTERNAL  BATCH  CHDS 

1400 

E7 

0069 

RST 

4 

140° 

C9 

0070 

RET 

140A 

0071 

1 

140A 

12 

31 

0072 

VHL1ST  DU 

SET+18 

HOC 

13 

31 

0073 

DU 

SET+19 

140E 

07 

30 

0074 

DU 

RE3ET+7 

1410 

03 

30 

0075 

DU 

RESET+8 

1412 

09 

30 

0076 

DU 

RESET+9 

1414 

10 

30 

0077 

DU 

RESET* 16 

1416 

01 

29 

0078 

DU 

HUX+O+l 

1418 

01 

29 

0079 

DU 

MUX+100H+1 

141ft 

FF 

FF 

0080 

DU 

-1 

1 41 C 

0081 

* 

1 4 1 C 

07 

31 

0082 

IHLIST  DU 

SET+7 

HIE 

OS 

31 

0083 

DU 

SET+0 

1420 

09 

31 

0084 

DU 

SET +9 

1422 

10 

31 

0085 

DU 

SET+16 

1424 

12 

30 

0086 

DU 

RESET+18 

1426 

13 

30 

0087 

DU 

RESET+I9 

1428 

00 

28 

0088 

DU 

MUX+O+O 

142A 

00 

29 

0089 

DU 

MUX+1 OOH+O 

142C 

FF 

FF 

0090 

DU 

-1 

142E 

0091 

1 

142E 

7C 

0092 

SETFOR  HDV 

A.H  IF  BTY  TYPE  CHD,  GD 

142F 

Eo 

04 

0093 

AN  I 

4 

1431 

C2 

70 

14 

0094 

JN2 

SETF8 

1434 

3E 

01 

0095 

HVI 

A,  1  IF  VOLTAGE  ENABLED, 

1436 

11 

52 

20 

0096 

LX  1 

D.VHXPTR  EFFECT  VOLT  POINTERS 

1439 

CD 

41 

14 

0097 

CALL 

SETFH 

143C 

3E 

02 

0098 

HVI 

A, 2  IF  CURRENT  ENA8LED, 

143E 

11 

54 

20 

0099 

LX  1 

D, IHXPTR  EFFECT  CURR  POINTERS 
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1MI 

0100  1 

1441  A4 

0101  SETFM 

ANA 

H 

IF  NOT  ENABLED.  RETURN 

1442  C8 

0102 

R2 

. 

1443  7E 

0103 

MOV 

A.L 

6ET  LEFT  NIBBLE  OF  DATA 

1444  OF 

0104 

RRC 

, 

FOR  THE  1ST  POINTER 

1445  OF 

0105 

RRC 

1446  OF 

0106 

RRC 

1447  OF 

0107 

RRC 

1448  CD  50  14 

9108 

CALL 

SF2 

1448  7B 

0109 

MOV 

A.E 

MOVE  TO  LX  POINTERS 

144C  C6  04 

01  iO 

ADI 

VLXPTR-VHXPTR 

144E  5F 

0111 

MOV 

E.A 

144F  7D 

0112 

MOV 

A.L 

GET  RI6HT  NIBBLE  FOR  LX’S 

1450 

0113  1 

1450  E5 

0114  SF2 

PUSH 

H 

SAVE  INST  COMMAND 

1451  CD  5D  14 

0115 

CALL 

ADRFMT 

HL=  ^FORMAT (A) 

1454  EB 

0116 

XCHG 

, 

H55  73 

0117 

MOV 

M.E 

STORE  THE  ADDRESS  INTO  HX/LX  PTP 

1456  23 

0118 

I  NX 

H 

1457  72 

0119 

MOV 

M,D 

1458  2B 

0120 

DCX 

H 

1459  EB 

0121 

XCHG 

I45A  El 

0122 

POP 

H 

145S  B7 

0123 

ORA 

A 

145C  C9 

0124 

RET 

145D 

0125  « 

145D 

0126  1  ADDRESS  THE  FORMAT (A) 

145D 

0127  4 

145D  21  3D  16 

0128  ADRFMT  LX I 

H.ROMFQR  POINT  AT  ROM  FORMATS 

1460  E6  OF 

0129 

ANi 

15 

1462  FE  OA 

0130 

CPI 

10 

IF  FORMAT# 10  THRU  115  THEN 

1464  DA  6A  14 

0131 

JC 

ADRF1 

1467  21  F5  IF 

0132 

LX  I 

H.RAMFQR-160  USE  RAM  FORMATS 

146A  87 

0133  ADRF1 

ADD 

A 

EACH  FORMAT  IS  16  BYTES 

146B  87 

0134 

ADD 

A 

146C  87 

0135 

ADD 

A 

146D  87 

0136 

ADD 

A 

146E  DF 

0137 

RST 

REF/8 

HL=HL+A 

146F  C9 

0138 

RET 

1470 

0139  1 

1470  7C 

0140  SETFB 

MOV 

A,  H 

IF  EVEN.  THEN  QTY  1NDEX=L 

1471  OF 

0141 

RRC 

. 

1472  7D 

0142 

MOV 

A)  L 

1473  D2  83  14 

0143 

JNC 

SETSX 

1476 

0144  1 

1476  5D 

0145  SETQV 

MOV 

E,l 

1477  3A  5B  20 

0146 

LDA 

TMINDEX  RAMFORt  TMI NDEX ]=L 

1 47A  21  95  20 

0147 

LX  I 

H, RAMFOR 

14'D  DF 

0148 

RST 

REF/8 

147E  73 

0149 

MOV 

N.E 
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147F  3A 

5B 

20 

0150 

LDA 

TH INDEX  TMINDEX++ 

14B2  3C 

0151 

I  NR 

A 

1483  FE 

60 

0152 

SETQX  CPI 

96 

1485  DO 

0153 

RNC 

14B6  32 

5B 

20 

0154 

STA 

TM1NDEX 

1489  B7 

0155 

ORA 

A  RETURN(NC) 

148A  C9 

0156 

RET 

14BB 

0157 

1 

14BB 

015B 

1  MINOR  FRAME  SYNC. 

14BB 

0159 

1  ON  ENTRY: 

A=MINOR  FRAME  NUMBER 

148B 

0160 

1 

14BB  21 

7E 

20 

0161 

ELEFRAME  LX1 

H,  BUFFI  PICK  UP  ADDRESSES 

148E  11 

6A 

20 

0162 

LX  I 

D, BUFFO  OF  BOTH  BUFFERS 

1491  OF 

0163 

RRC 

IF  ODD  FRAME,  GO 

1492  DA 

A5 

14 

0164 

JC 

ODDFRAME 

1495 

0165 

1 

1495 

0166 

1  EVEN  FRAME 

1495 

0167 

1 

1495  EB 

016B 

XCH8 

SET  THE  BUFFER  POINTERS 

1496  CD 

EO 

14 

0169 

CALL 

SETBUF 

1499  CD 

EE 

11 

0170 

CALL 

F1TTEL  GET  THE  SPIN  FIT 

149C  32 

BB 

20 

0171 

STA 

SFR  ASYNCHRONOUS  DATA 

149F  3E 

FF 

0172 

MV1 

A, - 1  RESET  THE  SAMPLE  COUNTER 

14A1  32 

5A 

20 

0173 

STA 

SMPCNT 

14A4  C9 

0174 

RET 

, 

HAS 

0175 

1 

14A5 

0176 

1  ODD  FRAME 

14A5 

0177 

1 

14A5  CD 

EO 

14 

017B 

ODDFRAME  CALL  SETBUF  SET  THE  BUFFERS 

14AB  3A 

ID 

20 

0179 

LDA 

FRAME 

14AB  3C 

01B0 

INR 

A  IF  FRAME=7  THEN 

14AC  E6 

07 

0181 

AN1 

7  RESET  THE  LX  POINTER 

14AE  CC 

09 

15 

01B2 

CZ 

RSTLX 

14BI  CD 

13 

15 

01B3 

CALL 

RSTHX  RESET  HX  EVERY  ODD  FRAME 

I4B4 

01 B4 

1 

14B4 

0185 

1  CALCULATE 

THE  FAST  DIGITAL  MONITOR 

14B4 

01B6 

1 

14B4  97 

01B7 

SUB 

A  GET  BURST  FDM  BITS  FROM 

14B5  CD 

11 

10 

01BB 

CALL 

BURDSC  THE  BURST  CONTROLLER 

14BB  E6 

BO 

0189 

AN1 

BB1TS 

14BA  5F 

0190 

MOV 

E,A 

14BB 

0191 

1 

14BB  CD 

EA 

17 

0192 

CALL 

SHPSTAT  PUT  SWEEP  STATUS  IN  L 

14EE  E6 

01 

0193 

AN1 

I 

14C0  6F 

0194 

MOV 

L,A 

14C1 

0195 

1 

14C1  3E 

02 

0196 

MV1 

A, 2  GET  THE  COMMAND  COUNT  BIT 

14C3  E5 

0197 

PUSH 

H 

I4C4  E7 

019B 

RST 

4 

14C5  El 

0199 

POP 

H 
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14C6 

29 

0200 

DAD 

H  SHIFT  IT  IN 

I4C7 

DF 

0201 

RST 

REF/8 

14C8 

0202  » 

14C8 

3A 

94 

20 

0203 

LDA 

FDMNEXT  GET  THE  I/V  MODE  COMMANDED 

14CB 

E6 

41 

0204 

AN1 

MODEFLAG+TESTFLAG 

14CD 

29 

0205 

DAD 

H 

14CE 

DF 

0206 

RST 

REF/8 

14CF 

B3 

0207 

ORA 

E  PUT  THESE  WITH  BURST  BITS 

14D0 

5F 

0208 

MOV 

E,A 

14D1 

0209 

1 

14D1 

2A 

5E 

20 

0210 

LHLD 

XMTCNT  IF  THE  TRANSMIT  COUNT !=0 

14D4 

7C 

0211 

MOV 

A,  H 

14D5 

85 

0212 

ORA 

L 

14D6 

CA 

DB 

14 

0213 

JZ 

ORFDM 

14D9 

3E 

8B 

0214 

MV  1 

A, PLAYFLAG+M8XM1T  TURN  ON  XMIT 

14DB 

B: 

0215  ORFDM  ORA 

E 

14BC 

32 

77 

20 

0216 

STA 

FDM 

14DF 

C9 

0217 

RET 

14E0 

0218 

» 

14E0 

0219  1 

SET  THE  BUFFER  POINTERS.  (SAMPLE  fc  TELEM) 

14E0 

0220  1 

ON  ENTRY: 

1HL]=BUFFER  FOR  TELEM 

HEO 

0221 

1 

CDE 3=BUFFER  FOR  SAMPLING 

14E0 

0222 

» 

HEO 

22 

68 

20 

0223  SETBUF  SHLD 

TMPTR 

14E3 

EB 

0224 

XCHG 

AND  RESETTING  THE 

14E4 

22 

64 

20 

0225 

SHLD 

HBPTR  HIGH  AND  LOW  SAMPLE 

14E7 

11 

OE 

00 

0226 

LX1 

D.LSAMP  POINTERS  TO  THE 

14EA 

19 

0227 

DAD 

D  OTHER  BUFFER. 

14EB 

22 

66 

20 

0228 

SHLD 

LBPTP 

14EE 

0229 

1 

14EE 

0230 

1 

PLACE  THE  GAIN  BITS  INTO  THE  TM  BUFFER 

14EE 

0231 

1 

14EE 

2A 

68 

20 

0232 

LHLD 

TMPTR  PLACE  THE  GAINS  IN 

14F1 

11 

OC 

00 

0233 

LX1 

D, 12  INTO  THE  8UFFER  AT 

14F4 

19 

0234 

DAD 

D  AN  OFFSET  OF  12 

14F5 

3A 

92 

20 

0235 

LDA 

HGA1NS 

14F8 

77 

0236 

MOV 

M.A 

14F9 

0237 

» 

14F9 

11 

07 

00 

0238 

LX  1 

D , 7  THEN  PUT  IN  THE  LOW 

14FC 

19 

0239 

DAD 

D  GAINS 

14FD 

7E 

0240 

MOV 

A.M 

14FE 

E6 

FO 

0241 

ANI 

OFOH 

1500 

5F 

0242 

MOV 

E.A 

1501 

3A 

93 

20 

0243 

LDA 

LGAINS 

1504 

E6 

OF 

0244 

ANI 

OFH 

1506 

B3 

0245 

ORA 

E 

1507 

77 

0246 

MOV 

M.A 

1508 

C? 

0247 

RET 

, 

1509 

0248 

» 

1509 

0249  » 

RESET  THE 

HIGH  AND  LOW  SAMPLE  LIST  POINTERS 
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1509 

1509 

1509 

21 

56 

20 

150C 

CD 

ID 

15 

150F 

22 

62 

20 

1512 

C9 

1513 

1513 

21 

52 

20 

1516 

CD 

ID 

15 

1519 

22 

60 

20 

1 51 C 

C9 

1 5  ID 

15  ID 

3A 

77 

20 

1520 

E6 

01 

1522 

IE 

02 

1524 

C2 

28 

15 

1527 

5F 

1528 

16 

00 

152A 

19 

152B 

1528 

7E 

152C 

23 

152D 

66 

152E 

6F 

152F 

2B 

1530 

C9 

1531 

1531 

1531 

1531 

2A 

68 

20 

1534 

5E 

1535 

23 

1536 

87 

1537 

CA 

3D 

15 

153A 

53 

1538 

3E 

153C 

23 

153D 

22 

68 

20 

1540 

E8 

1541 

C9 

1542 

1542 

1542 

1542 

1542 

FE 

10 

1544 

21 

52 

20 

1547 

DA 

54 

15 

154A 

D6 

10 

154C 

FE 

20 

154E 

21 

56 

20 

0250  I  DEPENDING  UPON  THE  CURRENT  MODE  (E-FIELD  OR  LANGMUIR) 
0251  I 


0252  RSTLI 

LXI 

H, VLXPTR  POINT  AT  THE  PAIR 

0253 

CALL 

INDEX  OF  LISTS  AND  CHOOSE 

0254 

SHLD 

LBPTR  ACC’ING  TO  MODE 

0255 

RET 

• 

0256  1 

0257  RSTHX 

LXI 

H , VHXPTR  SAME  FOR  THE  HIGH 

0258 

CALL 

INDEX 

0259 

SHLD 

HQPTR 

0260 

RET 

. 

0261  1 

0262  INDEX 

LDA 

FDM  ADD  0  OR  2 

0263 

ANI 

MODEFLAG  TO  THE  POINTER 

0264  1ND1 

MV  I 

E,2 

0265 

JNZ 

1ND2 

0266 

MOV 

E , A  DEPENDING  UPON  THE 

0267  1ND2 

MV  I 

D , 0  MODE  SETTING. 

0268 

DAD 

D 

0269  1 

0270 

MOV 

A , M  PICK  UP  THE  POINTER 

0271 

INX 

H 

0272 

MOV 

H,M 

0273 

MOV 

Lj  A 

0274 

OCX 

H  AND  SUBTRACT  THE  1ST 

0275 

RET 

• 

0276  » 

0277  I  E-FIELD  TELEMETRY  OUTPUT  ROUTINES. 
0278  » 


0279  ELETEL 

LHLD 

THPTR 

tHLWCURRENT  DATA 

0280 

MOV 

E,H 

PICK  UP  1  BYTE 

0281 

INX 

H 

0282 

ORA 

A 

IF  1  8YTE  ONLY 

0283 

JZ 

FINTEL 

0284 

MOV 

M 

ELSE  GRA8  ANOTHER 

0285 

MOV 

E|M 

0286 

INX 

H 

0287  FINTEL 

SHLD 

TMPTR 

0288 

XCHG 

t 

PUT  RESULT  IN  [HL1 

0289 

RET 

, 

0290  I 

0291  I  OUTPUT  ELECTRIC  FIELD  DIGITAL  SU8C0M 
0292  I  ON  ENTRY:  A=  INDEX  INTO  ELE  DIG  SU8  COM 
0293  I 

0294  ELEDSC  CPI  16  FROM  0  TO  15  ARE  THE 


0295 

LXI 

H, VHXPTR 

HIGH  RATE  QTY  LIS 

0296 

JC 

EDINX 

0297 

SUI 

16 

0298 

CPI 

32  FROM  16  TO  47  ARE 

0299 

LXI 

H, VLXPTR 

THE  LON  STY  LIST 

PAGE  06 
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1551 

D2 

62 

15 

0300 

JNC 

EDVAR 

1554 

F5 

0301  EDINX 

PUSH 

PSH  INDEX  TO  6ET  HL 

1555 

3A 

IE 

20 

0302 

LDA 

CYCLE  PUT  OUT  I’S  IN  ODD  CYCLES 

155B 

E6 

01 

0303 

ANI 

1 

155A 

CD 

22 

15 

0304 

CALL 

IND1 

155D 

FI 

0305 

PGP 

PSH  ADDRESS  OF  QTY  LIST 

155E 

23 

0306 

INK 

H 

155F 

C3 

67 

15 

0307 

JHP 

ADDA 

1562 

D6 

20 

0308  EDVAR 

SUI 

32 

1564 

21 

50 

20 

0309 

LXI 

H, RAM8ASE  FROM  48  ARE  JUST  VARS 

1567 

DF 

0310  ADDA 

RST 

REF/8 

1568 

7E 

0311 

MOV 

A,  M 

1569 

C9 

0312 

RET 

156A 

0313  I 

156A 

0314  I  E-FIELD  SAMPLING  ROUTINE. 

156A 

0315  t 

156A 

21 

5A 

20 

0316  ELESAMP  LXI 

H, SMPCNT  SAMPLE  COUNT++ 

156D 

34 

0317 

INR 

M 

156E 

7E 

0318 

MOV 

A,M 

156F 

OF 

0319 

RRC 

IF  EVEN,  SAMPLE  HX 

1570 

DA 

92 

15 

0320 

JC 

LXBUR  ELSE  SAMPLE  LX 

1573 

0321  « 

1573 

2A 

60 

20 

0322  HXSAMP  LHLD 

HQPTR  INCREMENT  LIST  POINTER 

1576 

23 

0323 

INX 

H 

1577 

22 

60 

20 

0324 

SHLD 

HQPTR 

157A 

CD 

DA 

15 

0325 

CALL 

GETQTY  EDE3=QUANTITY (MEMtHLl) 

157D 

0326  « 

157D 

21 

92 

20 

0327 

LXI 

H , HGA INS  STORE  THE  GAIN 

1580 

CD 

B9 

15 

0328 

CALL 

STOSAIN 

1583 

0329  1 

1583 

2A 

64 

20 

0330 

LHLD 

H8PTR  STORE  IDE!  IN  BUFFER 

1586 

3A 

5A 

20 

0331 

LDA 

SMPCNT  LEFT  OR  RIGHT  ADJUST 

1589 

E6 

02 

0332 

ANI 

2  DEPENDING  UPON  COUNT 

158B 

CD 

C4 

15 

0333 

CALL 

STQQTY 

15BE 

22 

64 

20 

0334 

SHLD 

HBPTR 

1591 

C9 

0335 

RET 

, 

1592 

0336  I 

1592 

3A 

5A 

20 

0337  LX8UR 

LDA 

SMPCNT 

1595 

E6 

02 

0338 

ANI 

2 

1597 

CA 

OB 

10 

0339 

JZ 

BURSAMP 

159A 

0340  I 

159A 

2A 

62 

20 

0341  LXSANP  LHLD 

LQPTR  INCREMENT  LON  LIST 

159D 

23 

0342 

INX 

H 

159E 

22 

62 

20 

0343 

SHLD 

LQPTR 

15A1 

CD 

DA 

15 

0344 

CALL 

GETQTY  SAMPLE  THE  QUANTITY 

15A4 

21 

93 

20 

0345 

LXI 

H,LGAINS  STORE  THE  GAIN 

15A7 

CD 

89 

15 

0346 

CALL 

STOGAIN 

15AA 

2A 

66 

20 

0347 

LHLD 

L8PTR  STORE  IN  LON  8UFFER 

15AD 

3A 

5A 

20 

0348 

LDA 

SMPCNT  LEFT  OR  RIGHT  ADJUSTED 

1580 

E6 

04 

0349 

ANI 

4 
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15B2  CD  C4  15 

0350 

CALL 

STOQTY 

15B5  22  66  20 

0351 

SHLD 

LBPTR 

15BB  C9 

0352 

RET 

, 

15b? 

0353  I 

15B9 

0354  1  STORE  GAIN 

BIT  FROM  [DEI  INTO  EH] 

15B9 

0355  1 

15B9  7A 

0356  STOGAIN  MOV 

A ,  D 

IF  GAIN=0,  STORE  0 

15BA  E6  10 

0357 

AN! 

10H 

BY  RESETTING  CARRY 

15BC  CA  CO  15 

035B 

JZ 

STGO 

15BF  37 

0359 

STC 

• 

ELSE  SET  CARRY 

15C0  7E 

0360  STGO 

MOV 

A,M 

MOVE  CRY  INTO  LSB 

15C1  17 

0361 

RAL 

, 

15C2  77 

0362 

MOV 

M.A 

15C3  C9 

0363 

RET 

• 

15C4 

0364  1 

15C4 

0365  1  STORE  A  QUANTITY  INTO  THE  BUFFER  AT  CHU 

15C4 

0366  1 

15C4  C2  Cl  15 

0367  STOQTY 

3NZ 

ODD 

15C7  EB 

036B  EVEN 

XCHG 

, 

STORE  THE  EVEN 

15CS  29 

0369 

DAD 

H 

BY  SHIFTING  THE 

15C9  29 

0370 

DAD 

H 

12  BITS  TO  THE  LEFT 

15CA  29 

0371 

DAD 

H 

15CB  29 

0372 

DAD 

H 

15CC  EB 

0373 

XCHG 

, 

15CD  72 

0374 

MOV 

M,D 

AND  STORING 

15CE  23 

0375 

INX 

H 

THE  12  BITS  WITH 

15CF  73 

0376 

MOV 

M,E 

ZERO  FOLLOWING 

15D0  C9 

0377 

RET 

• 

LEAVE  HL-7BYTE 

15D1 

037B  t 

15D1  7A 

0379  ODD 

MOV 

A,D 

STORE  THE  ODD 

15D2  E6  OF 

03B0 

AN1 

OFH 

BY  PUTTING  THE 

15D4  B6 

0331 

ORA 

M 

MSB’S  DOWN  FIRST 

1SD5  77 

0382 

MOV 

M,  A 

1536  23 

03B3 

INX 

H 

AND  THEN  THE 

15B7  73 

03B4 

MOV 

N,E 

LSB’S 

15D6  23 

0385 

INX 

H 

15D9  C*» 

03B6 

PET 

, 

15DA 

0337  1 

15DA 

03BB  1  GET  A  QUANTITY, 

15DA 

03B9  1 

ON  ENTRY: 

[MI  IS  THE  QUANTITY  DESCRIPTOR. 

15DA 

0390  * 

ON  EXIT  : 

IDE]-  THE  13  BIT  VALUE  OF  THAT  QTY 

15DA 

0391  1 

15DA  3A  77  20 

0392  GETQTY  LDA 

FDM  IF  PLAYBACK  MODE  ENABLED 

15DD  A6 

0393 

ANA 

M  AND  THE  QTY  15  ENABLED, 

15CE  FA  OA  16 

0394 

JM 

GETPLAY  THEN  GET  PLAYBACK 

15E1 

0395  1 

15E1  ?E 

0396 

MOV 

A,M  IF  A  RAM  QUANTITY, 

15E2  E6  40 

0397 

AN1 

40H  THEN  GET  IT 

15E4  C2  FF  15 

0393 

JNZ 

GETRAM 

15E7 

0399  t 
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15E7 

0401  1 

15E7  7E 

0402  GETANA  MOV 

A,M 

DETERMINE  GAIN  IN  D 

I5E9  Efi  3C 

0403 

AN! 

3FH 

I SEA  CO  2A  01 

0404 

CALL 

AGC 

I5ED  IE  10 

0405 

MVI 

E,  10H 

SET  E  TO  RECORD  HI6AIN/L06AIN 

I5EF  C2  F4  15 

0406 

JNZ 

GAI 

15F2  IE  00 

0407 

MVI 

E  j  0 

I5F4 

0408  I 

15F4  7A 

0409  GA1 

MOV 

A,  0 

SAMPLE  QTY(D) 

I5F5  CD  E6  00 

0410 

CALL 

SAMPLE 

IHL]=ATOD(A) 

15F8  7B 

0411 

MOV 

A,E 

PUT  IN  GAINBIT 

I5F9  E6  10 

0412 

ANI 

10H 

I5FB  B4 

0413 

ORA 

H 

I5FC  57 

0414 

MOV 

D.A 

AND  RETURN (DE) 

15FD  5D 

0415 

MOV 

E.L 

15FE  C9 

0416 

RET 

. 

1 5FF 

0417  t 

15FF  7E 

0418  GETRAM  MOV 

A,  M 

ADD  THE  OFFSET 

1600  E6  3F 

0419 

ANI 

03FH 

FROM  THE  DESCRIPTOR 

1602  2A  50  20 

0420 

LHLD 

RAMBASE 

1605  BF 

0421 

RST 

REF/S 

1606  5E 

0422 

MOV 

E.M 

LOAD  TWO  BYTES 

1607  23 

0423 

INX 

H 

1608  56 

0424 

MOV 

E.M 

1609  C9 

0425 

RET 

• 

160A 

0426  I 

160A 

0427  I  GET  BURST  PLAYBACK 

DATA 

160A 

0428  * 

160A  3A  77  20 

0429  GETPLAY  LDA 

FDM 

IF  MAIN  XMIT,  DO  IT 

160D  E6  08 

0430 

ANI 

MBXMIT 

160F  C2  17  16 

0431 

JNZ 

GPMAIN 

1612  CD  OE  10 

0432 

CALL 

BURPLAY  [HL ]=BURST  PLAYBACK  INFO 

1615  EB 

0433 

XCHG 

• 

PUT  IN  DE 

1616  C9 

0434 

RET 

. 

1617 

0435  1 

1617  2A  5E  20 

0436  GPMAIN  LHLD 

XMTCNT 

DECREASE  COUNT 

1 6 1 A  7C 

0437 

MOV 

A.N 

IF  ZERO.  RETURN (0 ) 

I61B  B5 

0438 

ORA 

L 

I61C  EB 

0439 

XCHG 

. 

161D  C3 

0440 

RZ 

. 

161E  IB 

0441 

OCX 

D 

16 IF  EB 

0442 

XCHG 

1620  22  5E  20 

0443 

SHLD 

XMTCNT 

1623  2A  5C  20 

0444 

LHLD 

XMTPTR 

THEN  PICK  UP  13  BITS 

1626  5E 

0445 

MOV 

E.M 

1627  23 

0446 

INX 

H 

1628  56 

044* 

MOV 

D.M 

1629  23 

0448 

INX 

H 

AND  UPDATE  POINTER 

I62A  22  5C  20 

0449 

SHLD 

XMTPTR 

PASE  09 
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1620  C9 

162E 

162E 

162E 

162E 

162E  JA  77  20 
1631  E6  OB 

1633  37 

1634  CO 

1635  22  5C  20 

1638  EB 

1639  22  5E  20 
163C  C9 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630 

1630  OB 

163E  OF 

163F  BB 

1640  BF 

1641  OB 

1642  OF 

1643  8B 

1644  BF 

1645  OB 

1646  OF 

1647  88 
164B  8F 
1649  08 
164A  OF 


0450  RET 

0451  I 

0452  I  REQUEST  TRANSMISSION. 

0453  I  ON  ENTRY:  [HLl-IRAM  AREA,  EE 1=C0UNT  OF  SAMPLES 

0454  I 

0455  ELEXNIT  LDA  FDM  IF  FDH  KNIT  GOING,  RETURN 
0456  AN1  MBXM1T 

0457  STC 

045B  RNZ 

0459  SHLD  XMTPTR  SET  POINTER 

0460  XCHG  . 

0461  SHLD  XHTCNT  AND  COUNTER 

0462  RET 

0463  I 

0464  I  TELEMETRY  TABLE  DEFAULTS 
0465  I 

0466  BZ  EQU  0  MULTIPLEXOR  ADDRESSES 

0467  BY  EQU  1 

0468  BI  EQU  2 

0469  V3  EQU  3 

0470  V2  EQU  4 

0471  V1SC  EQU  5 

0472  VI  EQU  6 

0473  AGCF  EQU  7 

0474  V12F  EQU  B 

0475  F3  EQU  9 

0476  F2  ECU  10 

0477  FI  EQU  11 

047B  V4  EQU  12 

0479  AGCU  EQU  13 

04B0  V12U  EQU  14 

04B1  V34  EQU  15 

0482  I 

04B3  PE  EQU  PLAYFLAS 

04B4  ROMFOR  EQU  $  ROMFORMATS 

04B5  HXTA8LE  EQU  4 

0486  DB  V12F 

04B7  DB  V34 

04B8  DB  V12F+PE 

0489  DB  V34+PE 

0490  DB  V12F 

0491  DB  V34 

0492  DB  V12F+PE 

0493  DB  V34+PE 

0494  DB  V12F 

0495  DB  V34 

0496  DB  V12F+PE 

0497  DB  V34+PE 

049B  DB  V12F 

0499  DB  V34 
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1648  38 

0500 

D8 

V12F+PE 

164C  8F 

0501 

D8 

V34+PE 

164B 

0502  t 

164D 

0503  LXTA8LE  E9U 

$ 

164D  86 

0504 

DB 

Vl+PE 

164E  83 

0505 

DB 

V3+PE 

164F  S7 

0506 

D8 

ABCF+PE 

1650  OB 

0507 

DB 

FI 

1651  84 

0508 

D8 

V2+PE 

1652  8C 

0509 

DB 

V4+PE 

1653  87 

0510 

08 

AGCF+PE 

1654  09 

0511 

DB 

F3 

1655  86 

0512 

DB 

Vl+PE 

1656  85 

0513 

DB 

V3+PE 

1657  87 

0514 

D8 

AGCF+FE 

1658  OA 

0515 

D8 

F2 

1659  84 

0516 

DB 

V2+PE 

165A  8C 

0517 

DB 

V4+PE 

1658  87 

0518 

D8 

AGCF+PE 

165C  09 

0519 

DB 

F3 

165D  86 

0520 

D8 

Vl+PE 

165E  83 

0521 

DB 

V3+PE 

165F  87 

0522 

DB 

AGCf-PE 

1660  08 

0523 

D8 

FI 

1661  84 

0524 

DB 

V2+PE 

1662  BC 

0525 

D8 

V4+PE 

1663  87 

0526 

D8 

AGCF+PE 

1664  09 

0527 

DB 

F3 

1665  86 

0528 

DB 

Vl+PE 

1666  83 

0529 

DB 

V3+PE 

1667  87 

0530 

DB 

AGCF+PE 

1668  OA 

0531 

D8 

F2 

1669  84 

0532 

D8 

V2+PE 

166A  SC 

0533 

DB 

V4+PE 

166B  87 

0534 

D8 

AGCF+PE 

166C  09 

0535 

D8 

F3 

166D  00 

V  0536 

DB 

256  ELE  END 

166E 

0537  t 

166E 

0538  1  ENTER  COWHAND  VECTORS  INTO  TABLE 

166E 

0539  1 

166E 

0540 

ORG 

CHDTA8 

0040  63  01 

0541 

DM 

SETBIAS  tO 

0042  80  01 

0542 

DH 

SETSTU8  18 

0044  76  01 

0543 

DM 

SETGUARD  110 

0046  98  02 

0544 

DH 

SETVTRIH  118 

0048  AE  02 

0545 

DH 

SETFILTER  120 

004A  DD  13 

0546 

DH 

SHCHD  128 

004C  E7  13 

0547 

DH 

RLCHD  130 

004E 

0548  t 

004E 

0549 

ORG 

40H/4+CHDTAB 
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0050  2E 

14 

0550  DM 

SETFOR 

140 

0052  ED  13 

0551  DM 

SETRB 

148 

0054 

0552  » 

0054 

0553  ORG 

68H/4+CHDTA8 

005A  F7 

13 

0554  DM 

SETMD 

168 

005C 

0555  1 

005C 

0556  1  RAM  SECTION 

005C 

0557  1 

005C 

0558  ORG 

ELERAH 

2050 

0559  RAHBASE  DS 

2 

RAH  VARIABLES  BASE  POINTER 

2052 

0560  1 

2052 

0561  VHXPTR  DS 

2 

SAMPLE  LIST  POINTERS 

2054 

0562  IHXPTR  DS 

0 

4. 

FOR  HIGH  AND  LOW 

2056 

0563  VLXPTR  DS 

2 

2058 

0564  ILXPTR  DS 

2 

205A 

0565  SHPCNT  DS 

1 

SAMPLE  COUNT 

205B 

0566  < 

2058 

0567  THINDEX  DS 

1 

INDEX  INTO  RAH  FORMAT 

20 5 C 

0568  XMTPTR  DS 

2 

TRANSMIT  POINTER 

205E 

0569  XHTCNT  DS 

2 

TRANSMIT  COUNTER 

2060 

0570  1 

2060 

0571  H8PTR  DS 

2 

SAMPLE  LIST  POINTERS 

2062 

0572  LGPTR  DS 

2 

FOR  THE  PRESENT  MODE. 

2064 

0573  H8PTR  DS 

2 

BUFFER  POINTERS  FOR 

2066 

0574  L8PTR  DS 

2 

THE  PRESENT  MODE 

2068 

0575  THPTR  DS 

2 

TELEMETRY  BUFFER  POINTER. 

206A 

0576  1 

206A 

0577  BUFFO  DS 

12+1+1+6  TELEMETRY  BUFFER  0 

207E 

0578  FDM  ESU 

BUFFO+13  FAST  DIGITAL  MONITOR 

207E 

0579  BUFFI  DS 

12+1+1+6  TELEMETRY  BUFFER  1 

2092 

0580  SFR  EQU 

BUFF1+13  SPIN-FIT  RESULTS 

2092 

0581  LSAMP  EQU 

12+1+1 

OFFSET  BETWEEN  HX  AND  LX 

2092 

0582  t 

2092 

0583  HGAINS  DS 

1 

HIGH  GAIN  BITS 

2093 

0584  LGAINS  DS 

1 

LOW  GAIN  BITS 

2094 

0585  FDMNEXT  DS 

1 

FAST  DIGITAL  MONITOR  (NEXT) 

2095 

0586  RAMFOR  DS 

4812 

20F5 

0587  ELEND  ESU 

$ 

20F5 

0588  t 

20F5 

0589  t  EXTERNALS 

20F5 

0590  1 

20F5 

0591  ORG 

BUR 

1008 

0592  8URINIT  DS 

3 

100B 

0593  BURSAMP  DS 

3 

IOOE 

0594  BURPLAY  DS 

3 

101 1 

0595  BURDSC  DS 

3 

1014 

0596  t 

1014 

0597  ORG 

FIT 

11E8 

0598  FITINI  DS 

3 

IIEB 

0599  FITSHP  DS 

3 
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11EE 

0600  FITTEL  DS 

3 

1 1 F 1 

0601  t 

1 1  FI 

0602  QRG 

SWP 

1 7E4 

0603  SWPINIT  DS 

3 

17E7 

0604  SWPAN6  DS 

3 

17EA 

0605  SWPSTAT  DS 

3 

17ED 

0606  t 

17ED 

0607  ORG 

8K6RAH 

201C 

0608  WORD  DS 

1 

201D 

0609  FRAME  DS 

1 

20  IE 

0610  CYCLE  DS 

1 
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0000 

0001  » 

0000 

0002  I  CRRES  FLIGHT  SOFTWARE — MAIN  PROGRAM  LOADER 

0000 

0003  1  FILE 

:  LD.A 

0000 

0004  I 

0000 

0005  LDCODE  EQU 

OEBH 

COMMAND  NUMBER  (5  BITS! 

0000 

0006  1 

0000 

0007 

DRG 

LD 

16B0 

0008  l 

1480  21  30 

29 

0009  LD INI T  LXI 

H,  USER 

POINT  THE  ADR  REGISTER 

1683  22  20 

29 

0010 

SHLD 

ADR 

TD  THE  USER  LOADING  AREA 

1686  C9 

0011 

RET 

a 

16B7 

0012  » 

1687  7C 

0013  LDCMD 

MDV 

A.H 

GET  THE  COMMAND  AGAIN 

1688  D6  EB 

0014 

SUI 

LDCDDE 

REMOVE  THE  BIAS 

168A  CA  9B 

16 

0015 

JZ 

SADRL 

AND  COUNT  OFF  EACH  NUMBER 

168D  3D 

0016 

DCR 

A 

16BE  CA  AO 

16 

0017 

JZ 

SADRH 

1691  3D 

001B 

DCR 

A 

1692  CA  A5 

16 

0019 

JZ 

LOAD 

1695  3D 

0020 

DCR 

A 

1696  CA  AF 

16 

0021 

JZ 

JUMP 

1699  37 

0022 

STC 

.  IF  UNKNOWN,  RETURN(CRY) 

169A  C9 

0023 

RET 

169B 

0024  I 

169B  7D 

0025  SADRL 

MDV 

A,L 

SET  LON  ADDRESS 

169C  32  20 

29 

0026 

STA 

ADR 

169F  C9 

0027 

RET 

16A0 

002B  1 

16A0  7D 

0029  SADRH 

MDV 

A,L 

SET  HIGH  ADDRESS 

16A1  32  21 

29 

0030 

STA 

ADR+1 

16A4  C9 

0031 

RET 

, 

16A5 

0032  1 

16A5  EB 

0033  LOAD 

XCHG 

« 

16A6  2A  20 

29 

0034 

LHLD 

ADR 

MEHtftDR**3  =  VALUE 

16A9  73 

0035 

MDV 

H,E 

16AA  23 

0036 

INX 

H 

16AB  22  20 

29 

0037 

SHLD 

ADR 

16AE  C9 

0038 

RET 

• 

16AF 

0039  1 

16AF  3A  30 

29 

0040  JUMP 

LDA 

USER 

EXECUTE  USER  PROGRAM 

16B2  B5 

0041 

ADD 

L 

CHECK  CODE  PLUS  COMMAND 

16B3  FE  AA 

0042 

CPI 

OAAH 

IS  THE  RIGHT  VALUE 

1665  CO 

0043 

RNZ 

• 

IF  NOT  RIGHT,  SIGNAL  ERROR 

16B6  97 

0044 

sue 

A 

RESET  THE  CODE 

16B7  32  30 

29 

0045 

STA 

USER 

16BA  C3  31 

29 

0046 

JMP 

USER+I 

16BD  00 

V  0047 

DB 

256 

END  OF  LD  MODULE 

16BE 

004B  1 

16BE 

0049  1  ENTER  COMMAND  VECTOR  INTO  TABLE 

276 


UCB  SPACE  SCIENCES  LAB 
CRRES  FLIGHT  SOFTWARE  V2.1 


12-6-88 


PAGE  02 


16BE 

0050  1 

16BE 

0051 

ORG 

LDCQDE/4+CHDTAB 

00 7 A  87  16 

0052 

DM 

LDCHD 

007C 

0053  I 

007C 

0054  1  VARIABLES 

007C 

0055  I 

007C 

0056 

ORG 

LDRAM 

2920 

0057  ADR 

DS 

2 

USER  LOAD  ADDRESS 

2922 

0058 

DS 

14 

2930 

0059  USER 

DS 

3F0H 

USER  PRGGRAH  LOADING  AREA 
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0000 

0001 

t 

0000 

0002 

1  CRRES  FLIGHT  SOFTWARE  —  DEPLOYMENT  MODULE 

0000 

0003 

t  WRITTEN  BY  PETER  R  HARVEY 

0000 

0004 

» 

0000 

0005 

1  FILE:  DEP.A 

0000 

0006 

1 

0000 

0007 

PSW  EQU 

6 

0000 

0008 

1 

0000 

0009 

DEPLOY  EQU 

ODOH  COMMAND  NUMBER 

0000 

0010 

DEPOVER  EQU 

DEPLOY+4  DEPLOY  SNITCH  OVERRIDE 

0000 

0011 

» 

0000 

0012 

LCOVER  EQU 

1  BOOM  STATUS  BITS 

0000 

0013 

TURNS  EQU 

2 

0000 

0014 

RCOVER  EQU 

4 

0000 

0015 

ENDWIRE  EQU 

8 

0000 

0016 

1 

0000 

0017 

1  INTERNAL  CODES  FOR  DEPLOY  STATUS 

0000 

0018 

1 

0000 

0019 

CMDED  EQU 

1  MOTOR  IS  COMMANDED  TO  RUN 

0000 

0020 

ACTUAL  EQU 

2  MOTOR  IS  RUNNING 

0000 

0021 

1 

0000 

0022 

HOFF  EQU 

0  NEITHER  CMDED  NOR  RUNNING 

0000 

0023 

MPAUSE  EQU 

CMDED  COMMANDED  BUT  PAUSED 

0000 

0024 

MSTOP  EQU 

ACTUAL  RUNNING  BUT  SHOULD  STOP 

0000 

0025 

MRUN  EQU 

ACTUAL+CMDED  RUNNING  AS  COMMANDED 

0000 

0026 

1 

0000 

0027 

»  CODE  ENTRY 

POINTS 

0000 

0028 

1 

0000 

0029 

ORB 

DEP 

16C4  C3 

DO 

16 

0030 

JMP 

DEP1N1T 

16C7  C3 

OB 

17 

0031 

JHP 

DEPSAMP 

16CA 

0032 

1 

16CA 

0033 

1  DIGITAL  SUB 

COMMUTATOR  (STATUS) 

l&CA 

0034 

< 

16CA  21 

44  20 

0035 

DEPDSC  LX  1 

H.DEPSTAT  RETURN  DEPSTAT  ON 

16CD  DF 

0036 

RST 

REF/8  FOR  THE  DIGITAL  STATUS 

16CE  7E 

0037 

MOV 

A.M 

16CF  C9 

0038 

RET 

16D0 

0039 

t 

16D0 

0040 

<  INITIALIZATION.  TURN  OFF  BOTH  BOOMS 

16D0 

0041 

4 

16D0  CD 

E3  00 

0042 

DEPIN1T  CALL 

BOOMSTAT 

16D3  32 

45  20 

0043 

STA 

BOOMBITS 

16D6  21 

00  DO 

0044 

in 

H, DEPLOY 1256+0 

16D9  CD 

02 

17 

0045 

CALL 

DOVER  CLEAR  OVERRIDE 

16DC 

0046 

1 

16DC 

0047 

t  ACCEPT  DEPLOY  COMMANDS 

16DC 

0048 

t  ON  ENTRY:  IHLI=  COMMAND 

16DC 

0049 

t  ON  EXIT:  CARRY  SET  IF  NOT  A  DEPLOYMENT  COMMAND 
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0050  1 

16DC  7C 

0051  DEPCMD  MOV 

A.H  CHECK  THE  INCQMIN6  COMMAND 

16DD  FE 

D4 

0052 

CPI 

DEPOVER  OVERRIDE  SNITCHES  COMMAND? 

16DF  CA 

02  17 

0053 

JZ 

DOVER 

16E2  E6 

FC 

0054 

AN  I 

OFCH 

16E4  D6 

DO 

0055 

SUI 

DEPLOY  IF  DEPLOY  START/STOP,  GO 

16E6  37 

0056 

STC 

RETURN  CARRY  IF  NOT  US 

16E7  CO 

0057 

RNZ 

, 

16ES 

0058  * 

16E8  7D 

0059 

MOV 

A.L  SET  NEW  LIMIT 

16E9  32 

48  20 

OOoO 

STA 

LIMIT 

16EC 

0061  1 

16EC  7C 

0062 

MOV 

A,H  LOOK  UP  NHAT  TO  DO  WITH  MOTORS 

lfcED  Ef> 

03 

0063 

ANI 

3 

16EF  21 

07  17 

0064 

LX  I 

H. DEPTAB 

16F2  DF 

0065 

RST 

REF/8 

16F3  7E 

0066 

MOV 

A,  M 

16F4  32 

44  20 

0067 

STA 

DEPSTAT 

1£jF7 

0068  1 

16F7  97 

0069 

SU8 

A 

16F8  32 

4A  20 

0070 

STA 

DEPCNT  DEPCNT=0 

16F8  32 

46  20 

0071 

STA 

DLEN1  ZERO  DEPLOYED  LENGTH  COUNTS 

16FE  32 

47  20 

0072 

STA 

DLEN2 

1701  C9 

0073 

RET 

1702 

0074  « 

1702  7D 

0075  DOVER  MOV 

A.L  SET  OVERRIDE  BITS 

1703  32 

49  20 

0076 

STA 

OVERRIDE 

1706  C9 

0077 

RET 

1707 

0078  1 

1707 

0079  1 

2-BIT  CODE  TO  STATE  TA8LE 

1707 

0080  1 

1707  22 

0081  DEPTAB  D8 

MST0PI11H  TURN  OFF  80TH  MOTORS 

1708  21 

0082 

D8 

MSTOP $ 10H+MPAUSE  TURN  ON  MOTOR  1 

1709  12 

0083 

DB 

MPAUSE 1 10H+MST0P  TURN  ON  MOTOR  2 

170A  11 

0084 

DB 

MFAUSEI11H  TURN  ON  BOTH  MOTORS 

170B 

0085  « 

1708 

0086  « 

DEPLOY  SAMPLING.  MONITOR  LENSTHS/CURRENTS  OF  MOTOR! 

I70B 

0087  « 

TURN  ON/OFF  MOTORS  AS  COMMANDED. 

170B 

0088  < 

170B  D5 

0089  DEPSAMP  PUSH 

D  SAVE  IDE!  IN  INTERRUPT 

170C  21 

4fi  20 

0090 

LX  I 

H, DEPCNT  UPDATE  DEPLOY  SAMPLE  CNT 

170F  34 

0091 

I  NR 

M  WHICH  CHANGES  THE  MOTOR 

1710  CD 

68  17 

0092 

CALL 

SnPlENG  SAMPLE  LtNbIHb 

1713  CD 

18  17 

0093 

CALL 

DEPMON  CHECK  BOOH  DEPLOYMENT 

1716  D1 

0094 

POP 

D 

1717  C9 

0095 

RET 

1713 

0096  1 

1718 

0097  1  MONITOR  800M  DEPLOYMENT 

1718 

0098  1 

1718  CD 

93  17 

0099  DEPMQN  CALL 

GETSTAT  GET  CURRENT  MOTOR  STATE 

PA6E  02 
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me 

FE 

00 

0100 

CPI 

HOFF  IF  OFF,  SUIT 

171D 

C8 

0101 

RZ 

. 

171E 

FE 

01 

0102 

CPI 

HPAUSE  IF  HOTOR  PAUSEO,  SEE  IF 

1720 

CA 

38 

17 

0103 

JI 

TRYGO  IT  CAN  GO  NON 

1723 

FE 

02 

0104 

CPI 

HSTOP  IF  HOTOR  SHOULD  STOP,  DO  IT 

1725 

CA 

55 

17 

0105 

JI 

STOP 

1728 

0106 

1 

1728 

0107 

I  MOTOR  IS  COHHANOED  AND  RUNNING 

1728 

0108 

« 

1728 

CD 

A8 

17 

0109 

KEEPGD  CALL 

LIHCHK  CHECK  L1HITS 

1728 

D2 

55 

17 

0110 

JNC 

STOP  IF  OVER  LIHIT,  STOP  NON 

172E 

CD 

C8 

17 

0111 

CALL 

CHPLENG  IF  LENGTH  <  OTHER,  OK 

1731 

08 

0112 

RC 

. 

1732 

FE 

03 

0113 

CPI 

3  IF  LENGTH-OTHER  >  3,  PAUSE 

1734 

02 

5A 

17 

0114 

JNC 

PAUSE 

1737 

C9 

0115 

RET 

1738 

0116 

1 

1738 

0117 

1  TRY 

TO  GO 

ONCE  PAUSED 

1738 

0118 

t 

1738 

CD 

AB 

17 

0119 

TRYGO 

CALL 

LIHCHK  IF  800H  AT  LIHIT,  DON’T 

1738 

3E 

00 

0120 

HVI 

A, HOFF  EVEN  START  IT. 

1730 

D2 

82 

17 

0121 

JNC 

SETSTAT 

1740 

CO 

C8 

17 

0122 

CALL 

CHPLENG  IF  THIS  800H  IS  SHORTER  THAN 

1743 

DA 

47 

17 

0123 

JC 

RUN  THE  OTHER  OK 

1746 

CO 

0124 

R‘'Z 

IF  EQUAL  OK 

1747 

0125 

1 

1747 

0126 

»  MOTOR  CONTROL;  A=NEW  STATE  FOR  THE  MOTOR 

1747 

0127 

1 

1747 

3E 

03 

0128 

RUN 

HVI 

A,HRUN  SET  THE  STATE  INFORHATION 

1749 

CD 

82 

17 

0129 

CALL 

SETSTAT 

174C 

3A 

4A 

20 

0130 

LDA 

DEPCNT  GET  THE  HTR  BIT 

174F 

E6 

01 

0131 

ANI 

1 

1751 

37 

0132 

STC 

AND  TURN  ON  THE  HOTOR 

1752 

C3 

18 

03 

0133 

JHP 

SETHOTOR 

1755 

0134 

1 

1755 

3E 

00 

0135 

STOP 

HVI 

A, HOFF 

1757 

C3 

5C 

17 

0136 

JHP 

HTROFF 

175A 

3E 

01 

0137 

PAUSE 

HVI 

A, HPAUSE 

175C 

CD 

82 

17 

0138 

HTROFF 

CALL 

SETSTAT 

175F 

3A 

4A 

20 

0139 

LDA 

DEPCNT  SET  HTR  NUHBER 

1762 

E6 

01 

0140 

ANI 

1 

1764 

E7 

0141 

ORA 

A  P  EAR  CARRY  FOR  OFF 

1765 

C3 

18 

03 

0142 

JHP 

SEIHOIOR 

1768 

0143 

1 

1768 

0144 

1  SAMPLE  THE  LENGTHS  OF  THE  BOOMS 

1768 

0145 

1 

1768 

21 

45 

20 

0146 

SNPLENG  1*1 

H,800H8I1S  SAVE  OLD  SITS 

1768 

5E 

0147 

HOV 

E,H 

176C 

CD 

E3 

00 

0148 

CALL 

BOOHSTAT  GrT  NEN  STATUS 

176F 

77 

0149 

HOV 

H,  A 
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1770 

0150  ! 

1770  A8 

0151 

IRA 

E 

GET  THE  CHANGES 

1771  A6 

0152 

ANA 

M 

WHICH  ARE  POSITIVE 

1772  5F 

0153 

MOV 

E,A 

1773 

0154  t 

1773  3E  02 

0155 

MV1 

A, TURNS 

IF  8D0M1  TURNS  CTR 

1775  21  46  20 

0156 

LX  I 

H,DLEN1 

IS  A  1,  INCREMENT  DLEN1 

1778  CD  7E  17 

0157 

CALL 

TRNCHK 

1778 

0158  1 

1778  3E  20 

0159 

MV1 

A, TURNS! 16  CHECK  B00M2  AS  NELL 

177D  23 

0160 

INI 

H 

177E  A3 

0161  TRNCHK 

ANA 

E 

IF  SIT  IS  0,  QUIT 

177F  C8 

0162 

RZ 

. 

1780  34 

0163 

INR 

M 

ELSE  INCREMENT  LEN6TH 

1781  C9 

0164 

RET 

1782 

0165  t 

1782 

0166  1  SET/GET  STATUS  OF  CURRENT  MOTOR 

1782 

0167  1 

1782  6F 

0168  SETSTAT  MDV 

L,A 

SAVE  NEW  2-8IT  CODE 

1783  3A  44  20 

0169 

LDA 

DEPSTA1 

GET  THE  OTHER  SIDE 

1786  CD  9F  17 

0170 

CALL 

SNAP 

1789  E6  30 

0171 

AN1 

3116 

SAVE  THEM 

1788  85 

0172 

ORA 

L 

PUT  IN  NEW  8ITS 

178C  CD  9F  17 

0173 

CALL 

SNAP 

REORIENT 

178F  32  44  20 

0174 

STA 

DEPSTAT 

AND  SAVE 

1792  C9 

0175 

RET 

1793 

0176  1 

1793  3A  44  20 

0177  6ETSTAT  LDA 

DEPSTAT  GET  CURRENT  STATUS 

1796  CD  9F  17 

0178 

CALL 

SNAP 

1799  E6  03 

0179 

ANI 

3 

179B  C9 

0180 

RET 

179C 

0181  1 

179C  3A  45  20 

0182  SNITCHES  LDA 

BOOMBITS  GET  THE  RIGHT  SNITCHES 

179F 

0183  t 

179F 

0184  1  SNAP  REVERSES  THE  NIB8LES  IN  A  BYTE  IF  MOTOR  2 

179F 

0185  1 

179F  5F 

0186  SNAP 

MOV 

E,  A 

ADJUSTNPUT 

17A0  3A  4A  20 

0187 

LDA 

DEPCNT 

TEST  WHICH  MOTOR 

17A3  OF 

0188 

RRC 

. 

17A4  78 

0189 

MOV 

A.E 

RETURN  SAME  IF  MOTOR  1 

17A5  DO 

0190 

RNC 

17A6  OF 

0191 

RRC 

ELSE  GET  HIGH  NIBBLE 

17A7  OF 

0192 

RRC 

17A8  OF 

0193 

RRC 

17A9  OF 

0194 

RRC 

17AA  C9 

0195 

RET 

17AB 

0196  t 

17AB 

0197  1  LIMIT  CHECK 

THE  CURRENT  BOOM 

17A8 

0198  1 

17A8  CD  9C  17 

0199  LIMCHK  CALL 

SNITCH 

GET  THE  MICROS 
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17AE 

21 

49 

20 

0200 

LX1 

H, OVERRIDE  ADD  IN  THE  OVERRIDE  81TS 

1781 

B6 

0201 

ORA 

N  TO  DEFEAT  AN  ERRANT  SNITCH 

1782 

6F 

0202 

NOV 

L,  A 

1783 

E6 

01 

0203 

AN1 

LCDVER  TEST  THE  COVERS 

17B5 

C8 

0204 

RZ 

IF  CLOSED,  RETURN  NC 

1786 

7D 

0205 

NDV 

«,L 

1787 

E6 

04 

0206 

AN1 

RCOVER 

1789 

C8 

0207 

RZ 

• 

17BA 

70 

0208 

NDV 

A,  L 

1788 

E6 

88 

0209 

AN  I 

ENDMIREtllH  IF  END-0F-N1RE  ON  EITHER  SOON 

17BD 

EE 

88 

0210 

XRI 

ENDHIREtllH  RETURN  NO  CARRY 

17BF 

CO 

0211 

RNZ 

i 

17C0 

0212  1 

17C0 

CD 

D6 

17 

0213 

CALL 

REFLEN  GET  BOON  LENGTH 

17C3 

21 

48 

20 

0214 

LX1 

H, LIMIT  AND  COMPARE  TO  THE  LIMIT 

17C6 

8E 

0215 

CNP 

N 

17C7 

C9 

0216 

RET 

17C8 

0217  t 

17C8 

0218  t  COMPARE  BOON  LENGTHS  IF  8DTH  BOONS  CONNANDED 

17C8 

0219  1 

IF  ONLY  1  CONNANDED,  RETURN  CARRY 

17C8 

0220  1 

IF  GOTH  CONNANDED,  RETURN  TH1S-THAT  BOON  LENGTH 

17C8 

0221  1 

17C8 

3A 

44 

20 

0222  CHPLENG  LDA 

DEPSTAT  CHECK  FOR  8DTH  CONNANDED 

17C8 

E6 

11 

0223 

AN1 

CHDEDtllH 

17CD 

FE 

11 

0224 

CPI 

CHDEDtllH 

17CF 

37 

0225 

STC 

17D0 

CO 

0226 

RNZ 

• 

17D1 

CD 

D6 

17 

0227 

CALL 

REFLEN  t A1=THIS  800H,  [LJ=PTHER 

17D4 

95 

0228 

SU8 

L 

17D5 

C9 

0229 

RET 

17D6 

0230  1 

17D6 

0231  I 

REFERENCE  BOTH  BOON  LENGTHS. 

17D6 

0232  » 

[A]=THIS  BDDN,  ILMHAT  BOOH. 

17D6 

0233  t 

17D6 

2A 

46 

20 

0234  REFLEN  LHLD 

DLEN1  H=DLEN2,  L=DLEN1 

17D9 

3A 

4A 

20 

0235 

LDA 

DEPCNT 

17DC 

OF 

0236 

RRC 

• 

17DD 

7C 

0237 

NOV 

A, H  IF  HOTDR  2,  RETURN (LEN2,LEN1) 

17DE 

D8 

0238 

RC 

• 

17DF 

7D 

0239 

NOV 

A,  L  ELSE  RETURN (LEN1 VLEN2) 

17E0 

6C 

0240 

NOV 

L,H 

17E1 

C9 

0241 

RET 

17E2 

00 

V  0242 

DB 

256  END  OF  DEPLOYMENT 

17E3 

0243  1 

17E3 

0244  4 

ENTER  CONHAND  VECTOR  INTO  TABLE 

17E3 

0245  1 

17E3 

0246 

ORG 

DEPL0Y/4+CHDTAB 

0074 

DC 

16 

0247 

DH 

DEPCHD 

0076 

0248  t 

0076 

0249  1 

VARIABLES 

t 
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0076 

0250  1 

0076 

0251  ORG 

OEPRAN 

2044 

0252  DEPSTAT  DS 

1 

DEPLOY  STATE  CC0DE1 :CODE01 

2045 

0253  BOQMBITS  DS 

1 

BOON  STATUS  BITS 

2046 

0254  DLEN1  CS 

1 

LENGTH  OF  BOOM  1 

2047 

0255  DLEN2  DS 

1 

LENGTH  OF  BOOM  2 

2048 

0256  UNIT  DS 

1 

BOOM  LENGTH  UPPER  LIMIT 

2049 

0257  OVERRIDE  DS 

1 

SNITCH  OVERRIDE  BITS 

204A 

0258  DEPCNT  DS 

1 

DEPLOY  COUNTER  (HTR  IN  LSB) 
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0000 

0001  t 

0000 

0002  1  CRRES  FLIGHT  PROGRAM  —  BIAS  SHEEPS 

0000 

0003  1 

0000 

0004  1  FILE  SHP.A 

0000 

0005  1 

0000 

0006  SHPCODE  EQU 

60H  COMMAND  CODE  FOR  SHEEP  MODULE 

0000 

0007  SHPR8 

EQU 

SHPCODE +2  COMMAND  CODE  FOR  REBIAS1N6 

0000 

0008  V1SET 

EQU 

68H  COMMAND  CODE  FOR  ELE  MODE  SET 

0000 

0009  SAHENA  EQU 

05CH  COMMAND  CODE  FOR  SAWTOOTH  OPTIONS 

0000 

0010  XMTCODE  EQU 

OEEOH  SHEEEEP  XM1T  CODE 

0000 

0011  1 

0000 

0012  VIANG 

EQU 

128+32  SUN  ANGLE  WHEN  B00M1  SUNWARD 

0000 

0013  V3ANG 

EQU 

V1ANG+64  AND  B00M3  SUNWARD 

0000 

0014  V1F1T 

EQU 

VIANG  V12  FITS  START  WHEN  VI  SUNWARD 

0000 

0015  V3FIT 

EQU 

V1F1T+128  V34  FITS  ARE  OFF  180  DE6REES 

0000 

0016  V1SHP 

EQU 

VIANG-64-8  SHEEP  AT.  112  DEGREES  BEFORE  ! 

0000 

0017  V3SHP 

EQU 

V3ANG-64-8 

0000 

0018  t 

0000 

0019  VI 

EQU 

6  MUX  ADDRESSES 

0000 

0020  V2F 

EQU 

4 

0000 

0021  RU 

EQU 

8 

0000 

0022  R12 

EQU 

V2F 

0000 

0023  V3 

EQU 

3 

0000 

0024  V4 

EQU 

12 

0000 

0025  1 

0000 

0026  PSH 

EQU 

6 

0000 

0027  SP 

EQU 

6 

0000 

0028  SRHL 

EQU 

10H  SHIFT  RIGHT  OPCODE 

0000 

0029  1 

0000 

0030 

0R6 

SHP 

17E4  C3  04  18 

0031 

JHP 

SHPINIT 

17E7  C3  31  18 

0032 

JHP 

SHPANG 

17EA  C3  FD  17 

0033 

JHP 

SHPSTAT 

17ED  C3  A2  18 

0034 

JHP 

SHPEXEC 

17F0 

0035  1 

17F0 

0036  1  SHEEP  DIGITAL  STATUS 

17F0 

0037  1  RETURNS  A=OPTION[BOOM,AI 

17F0 

0038  1 

17F0  FE  06 

0039  SHPDSC  CPI 

6  IF  0-5,  RETURN  RAM12 

17F2  DA  F7  17 

0040 

JC 

SD1 

17F5  C6  09 

0041 

ADI 

RAM34-RAM12-6  ELSE  RAM34 

17F7  21  C3  24 

0042  SOI 

LX  1 

H,RAM12 

17FA  DF 

0043 

RST 

REF/B 

17FB  7E 

0044 

MOV 

A,M 

17FC  C9 

0045 

RET 

17FD 

0046  t 

17FD 

0047  1  SHEEP  FAST 

DIGITAL  STATUS 

17FD 

0048  1 

17FD  3A  E2  24 

0049  SHPSTAT  LDA 

SHPREQ  RETURN  LSB=1  FOR  SHEEP  1N6 
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1800 

32 

E3 

24 

0050 

STA 

SWPOK  (SYNC  TO  NHEN  THIS  CALL  IS  MADE) 

1803 

C9 

0051 

RET 

1804 

0052  t 

1804 

0053  i  initialization/default  SETTINGS 

1804 

0054  1 

1304 

21 

Cl 

24 

0055  SHPIN1T  LXI 

H, STATE  COPY  FROM  ROM  TO  RAM 

1807 

11 

2D 

18 

0056 

LXI 

D, ROMDEF 

180A 

OE 

11 

0057 

NV1 

Cf RAM34-RAM12+2 

180C 

D7 

0058 

RST 

COPY/8 

180D 

11 

2F 

IB 

0059 

LXI 

D, ROMDEF+2 

1810 

OE 

OF 

0060 

HV1 

C,  RAM34-RAH12 

1812 

E7 

0061 

RST 

COPY/8 

1813 

36 

01 

0062 

HV1 

M,1  BOOM  =  1 

1815 

3E 

98 

0063 

MV1 

A,V3SNPI256/256  CHAN6E  SHEEP  AN6LE  OF  1 

1817 

32 

D3 

24 

0064 

STA 

RAM34+ANGSWP 

181A 

C9 

0065 

RET 

1818 

0066  t 

1818 

0067  t  COMMAND  ENTRY  IN  CHLI 

1818 

0068  t 

1818 

7C 

0069  SNPCND 

MOV 

A,H  IF  REBIAS  COMMAND,  SETRESULT(L) 

181C 

FE 

62 

0070 

CPI 

SHPR8 

181E 

CA 

7F 

18 

0071 

J2 

RE81AS 

1821 

E8 

0072 

XCHG 

IDEI=COMMAND 

1822 

21 

CO 

24 

0073 

LXI 

H,  INDEX  tHU-MNDEX 

1825 

OF 

0074 

RRC 

.  IF  EVEN,  SET  INDEX 

1826 

D2 

2F 

18 

0075 

JNC 

SI 

1829 

34 

0076 

INR 

M  ELSE  SET  VALUE (INDEX++) 

182  A 

7E 

0077 

MOV 

A,M 

1828 

FE 

22 

0078 

CPI 

BOQH-INDEX+1 

182D 

DO 

0079 

RNC 

182E 

DF 

0080 

RST 

REF/8 

182F 

73 

0081  SI 

MOV 

H,E 

1830 

C9 

0082 

RET 

1831 

0083  » 

1831 

0084  1  SWEEP  SUN  ANGLE 

1831 

0085  1 

1831 

5F 

0086  SWPANG  MOV 

E, A  SAVE  SUN  AN6LE 

1832 

87 

0087 

ORA 

A  COUNT  ZERO  CROSSINGS 

1833 

CC 

67 

18 

0088 

CZ 

DNCNT 

1836 

0089  I 

1836 

01 

Cl 

24 

0090 

LXI 

B, STATE  IN  SEARCH  STATE, 

1839 

OA 

0091 

LDAX 

B  CHECK  ANGLE  FOR  START  OF  SHEEP 

183A 

E6 

03 

0092 

ANI 

3 

183C 

CA 

6F 

18 

0093 

JZ 

CHKANG 

183F 

D6 

02 

0094 

SUI 

2  IF  ANALYSIS  NOT  DONE,  QUIT 

1841 

CO 

0095 

RNZ 

• 

1842 

0096  t 

1842 

CD 

02 

18 

0097 

CALL 

REFCON  IS  IT  TIME  TO  SET  BIAS? 

1845 

23 

0098 

INX 

H 

1846 

7E 

0099 

MOV 

A,  M  (C0NC1)"ANGLE) 
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1847  93 

0100 

SUB 

E 

1848  CO 

0101 

RNZ 

NO; RETURN 

1849  02 

0102 

STAX 

B  YES,  STATE=0  (SEARCH  AGAIN! 

184A 

0103 

1 

184A  OE  10 

0104 

HV1 

C ,  1  OH  CHECK  IF  THIS  NODE  IS  OK 

184C  CD  E2 

1A 

0105 

CALL 

CHKNTD  FOR  SETTING  8IASES 

184F  2A  El 

24 

0106 

LHLD 

800N 

1852  C4  85 

18 

0107 

CNZ 

SETRES  YES.  SET  BIASES (BOON! 

1855 

0108 

1 

1855  21  El 

24 

0109 

SNITCH 

LXI 

H, BOOM  SNITCH  TO  OTHER  BOON 

1858  35 

0110 

DCR 

N  IF  1,  SET  TO  3  AND  VICE  VERSA 

1859  36  03 

0111 

HV1 

N,3 

1858  CA  60 

18 

0112 

JZ 

SETNAX 

185E  36  01 

0113 

NVI 

N,1 

1860 

0114 

1 

1860  3A  C2 

24 

0115 

SETI1AX 

LDA 

SPINNAX  SET  DELAY  IN  (SPINS 

1863  32  E4 

24 

0116 

STA 

SPINCNT 

1866  C9 

0117 

RET 

1867 

0118 

1 

1867  21  E4 

24 

0119 

DNCNT 

LXI 

H, SPINCNT  COUNT  DONN 

186A  35 

0120 

DCR 

H 

186B  FO 

0121 

RP 

.  IF  ZERO  OR  6REATER,  OK 

186C  36  00 

0122 

NVI 

H,  0 

186E  C9 

0123 

RET 

186F 

0124 

1 

186F  3A  E4 

24 

0125 

CHKANG 

LDA 

SPINCNT  IF  SPIN  COUNTERS 

1872  87 

0126 

ORA 

A 

1873  CO 

0127 

RNZ 

1874  3E  01 

0128 

HV1 

A, ANGSNP  AND  THE  ANGLE=SNPANG 

1876  CD  FC 

1A 

0129 

CALL 

GETOPT 

1879  BB 

0130 

CNP 

E 

187A  CO 

0131 

RNZ 

, 

1878  3E  01 

0132 

NVI 

A,  I  SET  READY  TO  SNEEP 

187D  02 

0133 

STAX 

8 

187E  C9 

0134 

RET 

187F 

0135 

t 

187F  3A  Cl 

24 

0136 

REBIAS 

LDA 

STATE  IF  NOT  DISABLED 

1882  FE  03 

0137 

CPI 

3  THEN  SET  RESULT (BOON=L)  ON  SENSORS 

1884  C8 

0138 

RZ 

• 

1885 

0139 

1 

1885 

0140 

1  SET  THE  RESULT  ON  THE  SENSORS  OF  BOOHILI 

1885 

0141 

1 

1885  55 

0142 

SETRES  HOV 

0,1 

1886  OE  10 

0143 

NVI 

C, 10H  CHECK  NHETHER  TO  USE  RESULT 

1888  CD  DC 

1A 

0144 

CALL 

CHKENA  OR  THE  ALTERNATE  VALUES 

188B  3E  03 

0145 

NVI 

A,  ALT 

188D  CA  92 

18 

0146 

JZ 

SRI 

1890  3E  04 

0147 

NVI 

A,  RESULT 

1892  6A 

0148 

SRI 

NOV 

L,D  HL-)VARIABLES (800N  L) 

1893  CD  F3 

1A 

0149 

CALL 

REFL 

PASE  03 
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1896 

OF 

0150 

RST 

REF/8  L=ALTERNATE  OR  RESULT 

1897 

6E 

0151 

NOV 

M 

1898 

62 

0152 

NOV 

H,  D 

1899 

0153  1 

1899 

0154  t  BIAS  A  SENSOR  PAIR 

1899 

0155  1  ON  ENTRY: 

CHI  =  1  OR  3,  CL 3=VALUE 

1899 

0156  1 

1899 

E5 

0157  8IB0TH  PUSH 

H 

189A 

CO 

63 

01 

0158 

CALL 

SET81AS 

1890 

El 

0159 

POP 

H 

189E 

24 

0160 

1NR 

H 

189F 

C3 

63 

01 

0161 

JNP 

SET81AS 

18A2 

0162  t 

18A2 

0163  t  SHEEP  EXECUTIVE  SECTION 

18A2 

0164  t 

18A2 

3A 

Cl 

24 

0165  SHPEYEC  LOA 

STATE  IF  SHEEP  AN6LE  NOT  HATCHED 

18A5 

30 

0166 

OCR 

A  RETURN. 

1BA6 

CO 

0167 

RNZ 

. 

18A7 

0168  t 

18A7 

21 

10 

25 

0169 

LX  1 

H, SHP8UF  SET  WHERE  DATA  60ES 

1BAA 

22 

SE 

24 

0170 

SHLD 

SHPPTR 

18AD 

0171  1 

1BAD 

3E 

04 

0172 

NVI 

A, 4  REQUEST  SAWTOOTH  NODE 

18AF 

CD 

36 

13 

0173 

CALL 

SAHDSC 

1882 

32 

14 

29 

0174 

STA 

SAHNODE 

18B5 

0175  1 

1885 

0176  1  VOLTAGE  PHASE  (DO  A  CURRENT  SHEEP) 

18B5 

0177  1 

1BB5 

01 

01 

07 

0178 

LX1 

B,1STEPI256+1  B=15TEP,C=1 

1888 

CD 

DA 

18 

0179 

CALL 

SHEEP 

1888 

0180  1 

1888 

0181  1 

CURRENT  PHASE  (DO  A  V0LTA6E  SHEEP) 

1BBB 

0182  1 

18BB 

01 

04 

09 

0183 

LXI 

B.VSTEPI256+4  8=VSTEP,C=4 

1BBE 

CD 

DA 

18 

0184 

CALL 

SHEEP 

18C1 

0185  t 

18C1 

97 

0186 

SUB 

A  RENOVE  REQUEST 

18C2 

32 

E2 

24 

0187 

STA 

SHPREQ 

18C5 

0188  t 

18C5 

2A 

14 

29 

0189 

LHLD 

SAHNODE  RESTORE  THE  OLD  SAWTOOTH  NODE 

1BC8 

26 

5C 

0190 

NVI 

H, SAHENA 

18CA 

F7 

0191 

RST 

6 

18CB 

0192  1 

18CB 

OE 

01 

0193 

NVI 

C,1  IF  THERE  HAS  A  VOLTAGE  PHASE 

18CD 

CD 

DC 

1A 

0194 

CALL 

CHKENA  THEN  ANALYZE  THE  DATA 

1800 

C4 

87 

19 

0195 

CNZ 

ANALYZE 

1803 

0196  1 

1803 

21 

Cl 

24 

0197 

LXI 

H, STATE  APPLY  ANALYSIS  DONE. 

1806 

34 

0198 

1NR 

N 

1807 

C3 

A5 

1A 

0199 

JNP 

TRANSHIT 

PA6E  04 
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18DA 

0200  1 

18DA 

0201  1  PERFORM  A  SWEEP  ON  THE  SELECTED  BOOM  SYSTEM  IF  ENABLED 

18DA 

0202  1  ON  ENTRY: 

IBI=  VSTEP  OR  1STEP  INDEX 

18DA 

0203  1 

ICI=  1  FOR  V  PHASE,  4  FOR  1  PHASE 

18DA 

0204  1 

18DA  CD  DC 

1A 

0205  SWEEP 

CALL 

CHKENA  CHECK  IF  SHEEP  ENABLED 

18DD  C8 

0206 

RZ 

18DE 

0207  1 

18DE  21  E2 

24 

0208 

LXI 

H,  SHPREQ  SET  REQUESTS 

18E1  36  01 

0209 

MV  I 

M,  1  SET  REQUESTS 

18E3  23 

0210 

INX 

H 

18E4  7E 

0211  SWPWT 

MOV 

A,M  WAIT  FOR  THE  OK 

18E5  3D 

0212 

DCR 

A 

18E6  C2  E4 

18 

0213 

JNZ 

SWPWT 

18E9 

0214  I 

18E9  CD  E2 

1A 

0215 

CALL 

CHKWTD  CHECK  IF  WE'LL  NEED  TO  FLIP 

18EC  32  15 

29 

0216 

STA 

NEEDFL1P 

18EF 

0217  1 

18EF  78 

0218 

MOV 

A, B  6ET  1STEP/ VSTEP  INDEX 

18F0  CD  FC 

1A 

0219 

CALL 

6ET0PT  IHLI-MSTEP  OR  VSTEP 

18F3  CD  ID 

18 

0220 

CALL 

LD2 

18F6  22  E9 

24 

0221 

SHLD 

SWPDEL  (DEL  AND  BIAS) 

18F9 

0222  1 

18F9  CD  02 

18 

0223 

CALL 

REFCON  6ET  THE  SWPPAIR 

18FC  79 

0224 

MOV 

A, C  AND  QTYA/8  FROM  TABLE 

18FD  3C 

0225 

1NR 

A  (INDEX=2  OR  5) 

18FE  DF 

0226 

RST 

REF/8 

18FF  E8 

0227 

XCHS 

1900  21  EB 

24 

0228 

L  X I 

H, SWPPAIR 

1903  OE  03 

0229 

MV  I 

C,3 

1905  D7 

0230 

RST 

COPY/8 

1906 

0231  1 

1906  21  01 

5C 

0232 

LXI 

H.SAWENAI256+1  TURN  OFF  SAWTOOTH 

1909  F7 

0233 

RST 

6  8UT  ALLOW  IT  TO  KEEP  TIME 

190A 

0234  1 

190 A  CD  25 

19 

0235 

CALL 

FLIP  FLIP  RELAYS  IF  HE  HAVE  TO. 

190D  01  80 

04 

0236 

LXI 

B,400H+J28  WAIT  4  TIMES  AT  FIRST 

1910  CD  4C 

19 

0237  SWPLP 

CALL 

BIASEM 

1913  CD  3D 

19 

0238 

CALL 

WAIT 

1916  CD  56 

19 

0239 

CALL 

I  SAMP 

1919  06  01 

0240 

MVI 

B,  1  WAIT  ONCE  AFTER  THAT 

1918  OD 

0241 

DCR 

C 

191C  C2  10 

19 

0242 

JNZ 

SWPLP 

191F  2A  E8 

24 

0243 

LHLD 

SWPPAIR  PUT  PRIOR  RESULT  FOR  THE 

1922  CD  85 

18 

0244 

CALL 

SETRES  SWEPT  800M  SYSTEM  BACK  OUT 

1925 

0245  1 

1925  3A  15 

29 

0246  FLIP 

LDA 

NEEDFLIP  DO  HE  NEED  TO  FLIP? 

1928  87 

0247 

ORA 

A 

1929  C8 

0248 

RZ 

.  NO.  RETURN. 

192 A  CD  D2 

13 

0249 

CALL 

ELESTAT  YES.  INVERT  THE  MODE 
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192D  3C 

0250 

I  NR 

A 

192E  E6  01 

0251 

ANI 

1 

1930  6F 

0252 

MOV 

L.A 

1931  26  6B 

0253 

nvi 

H.VISET 

1933  F7 

0254 

RST 

6 

1934  C9 

0255 

RET 

1935 

0256  1 

1935  3A  1C  20 

0257  WA1TN 

LDA 

WORD 

193B  E6  07 

025B 

ANI 

7 

193A  C2  35  19 

0259 

JNZ 

WAITN 

193D 

0260  1 

193D  3A  1C  20 

0261  WAIT 

LDA 

WORD 

SAMPLE  IN  WORDS 

1940  D6  02 

0262 

SUI 

2 

2, 10, IB... 

1942  E6  07 

0263 

ANI 

7 

1944  C2  3D  19 

0264 

JNZ 

WAIT 

1947  05 

0265 

DCR 

B 

194B  C2  35  19 

0266 

JNZ 

WAITN 

194B  C9 

0267 

RET 

194C 

026B  t 

194C  2A  EA  24 

0269  BIASEH  LHLD 

SWPBIAS 

1  BIAS  SENSORS 

194F  CD  99  IB 

0270 

CALL 

BIBOTH 

1952 

0271  1 

1952  3A  E9  24 

0272  STEPB 

LDA 

SWPDEL 

BIAS  +=  DELTA 

1955  21  EA  24 

0273 

LX  I 

H, SWPBIAS 

195B  B6 

0274 

ADD 

M 

1959  77 

0275 

MOV 

M,A 

195A  C9 

0276 

RET 

195B 

0277  t 

195B  3A  EC  24 

027B  ISAMP 

LDA 

8TYA 

SAMPLE/STORE  6TYA 

195E  CD  64  19 

0279 

CALL 

SAHSTO 

1961  3A  ED  24 

02B0 

LDA 

BTYB 

1964  CD  7fl  19 

02B1  SAHSTO  CALL 

SSAHP 

1967  29 

02B2 

DAD 

H 

SIGN  EXTEND  12  TO  16  BITS 

196B  29 

02B3 

DAD 

H 

(SHIFTING  LEFT,  THEN  RIGHT) 

1969  29 

02B4 

DAD 

H 

196A  29 

02B5 

DAD 

H 

196B  10 

02B6 

DB 

SRHL 

196C  10 

02B7 

DB 

SRHL 

I960  10 

02BB 

DB 

SRHL 

196E  10 

02B9 

DB 

SRHL 

196F 

0290  t 

196F  EB 

0291 

XCHG 

. 

TO  IDE] 

1970  2A  EE  24 

0292 

LHLD 

SWPPTR 

PUT  AWAY 

1973  73 

0293 

MOV 

»,E 

1974  23 

0294 

INK 

H 

1975  72 

0295 

MOV 

H,D 

1976  23 

0296 

INK 

H 

1977  22  EE  24 

0297 

SHLD 

SWPPTR 

197A  C9 

029B 

RET 

197B 

0299  t 
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197B  B7  0300  SSAMP  ORA  A  IF  POSITIVE  HUD  OTY 

197C  F2  E6  00  0301  JP  SAMPLE  TAKE  A  NORMAL  SAMPLE 

197F  2F  0302  CMA  .  INVERT  MUX  OTY 

1980  3C  0303  I NR  A 

1981  CO  E6  00  0304  CALL  SAMPLE  ELSE  TAKE  SAMPLE 

1984  C3  8B  00  0305  JMP  NEG16  AND  INVERT 

1987  0306  t 

1987  0307  I  ANALYZE  SHEEPS 

1987  0308  I 


1987  3A  E5  24 

0309  ANALYZE  LDA 

198A  FE  AA 

0310 

CPI 

198C  CA  E6  24 

0311 

JZ 

198F 

0312  t 

198F  3E  02 

0313 

MV  I 

1991  CD  FC  1A 

0314 

CALL 

1994  36  00 

0315 

MVI 

1996 

0316  1 

1996  3E  OB 

0317 

MV  I 

1998  CD  FC  1A 

0318 

CALL 

199B  36  00 

0319 

MVI 

199D 

0320  1 

199D  21  10  25 

0321 

LX  I 

19A0  CD  B6  19 

0322 

CALL 

19A3  F5 

0323 

PUSH 

19A4  21  12  25 

0324 

LXI 

19A7  CD  B6  19 

0325 

CALL 

19AA  5F 

0326 

MOV 

19AB  FI 

0327 

POP 

19AC  83 

0328 

ADD 

19AD  IF 

0329 

RAR 

19AE  5F 

0330 

MOV 

19AF  3E  04 

0331 

MVI 

19B1  CD  FC  1A 

0332 

CALL 

19B4  73 

0333 

MOV 

19B5  C9 

0334 

RET 

19B6 

0335  I 

19B6 

0336  1  ANALYZE  0! 

19B6 

0337  1 

19B6  22  10  29 

0338  ANA 

SHLD 

19B9  3E  06 

0339 

MVI 

19BB  CD  FC  1A 

0340 

CALL 

19BE  CD  El  19 

0341 

CALL 

19C1 

0342  1 

19C1  3E  05 

0343 

MVI 

19C3  CD  FC  1A 

0344 

CALL 

19C6  CD  4C  1A 

0345 

CALL 

19C9  5F 

0346 

MOV 

19CA 

0347  t 

19CA  FE  FF 

0348 

CPI 

19CC  3E  03 

0349 

MVI 

ANAVECT  IF  USER  VECTOR 
OAAH  IS  SET,  THEN  60 
ANAVECT+1 

A.ALGNO  SET  ALGORITHM  «  0 
GETOPT 


A, PTSREJ  ZERO  THE  I  POINTS  REJECTED 

GETOPT 

M.O 

H, SHPBUF+O  GET  ANA  VI  OR  V3 
ANA 

PSH  SAVE  RESULT 
H,SHPBUF*2  ADD  ANA  V2  OR  V4 
ANA 

E, A  AVERAGE  THE  RESULTS 

PSH 

E 

E  j  A 

A, RESULT  SET  IT 

GETOPT 

H,E 


SENSOR  SHEEP 

BPTR  SAVE  BUFFER  START  ADDRESS 
A,NREJ  REJECT (M) 

GETOPT 

SMOOTH 

AjHAVG  FINDMIN(M) 

GETOPT 

FINDMIN  A=INDEX  OF  MINIMUM 

E,A 

-1  IF  NULL  INDEX,  USE  ALTERNATE 
A,  ALT 
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19CE  CA  FC  1A 

0350 

JZ 

SETOPT 

1901 

0351  1 

1901 

0352  1  CALCULATE  THE  CURRENT  FROM  THE  INDEX 

19D1 

0353  1 

1901  3E  07 

0354 

MV  I 

A, ISTEP  A=1N1TIAL  STEP 

1903  CD  FC  1A 

0355 

CALL 

8ET0PT 

1906  16  00 

0356 

MV  I 

0,0 

L=  STEPI1N0EX 

1908  E5 

0357 

PUSH 

H 

1909  CD  OA  06 

0358 

CALL 

MU21 

190C  01 

0359 

POP 

D 

1900 

0360  1 

1900  13 

0361 

1NX 

D 

PICK  UP  INITIAL  81AS 

190E  1A 

0362 

LOAX 

0 

19DF  85 

0363 

ADD 

L 

AOO  IT  IN 

19E0  C9 

0364 

RET 

19E1 

0365  1 

19E1 

0366  1  SMOOTH  THE 

1/V  CURVE 

19E1 

0367  1  ON  ENTRY: 

[A]  =  t  TIMES  TO  OPERATE 

19E1 

0368  t 

19E1  32  12  29 

0369  SMOOTH  STA 

NTEMP 

19E4  3C 

0370 

1NR 

A 

IF  -1,  NO  SMOOTHING 

19E5  C8 

0371 

RZ 

. 

19E6  06  7E 

0372 

MV1 

8,126 

FOR  8=126  TO  2 

19E8  CD  F3  19 

0373  SMI 

CALL 

SMOCHK 

CHECK/REPLACE  PTIB3 

19EB  05 

0374 

OCR 

8 

19EC  78 

0375 

MOV 

A ,  B 

19ED  FE  02 

0376 

CPI 

2 

19EF  02  E8  19 

0377 

JNC 

SMI 

19F2  C9 

0378 

RET 

19F3 

0379  I 

19F3  78 

0380  SMOCHK 

MOV 

A, 8 

IF  PTt83-PT[8-lI+N>0 

19F4  CO  OE  18 

0381 

CALL 

LOADV 

THEN  POINT  IS  OK. 

19F7  C8 

0382 

RZ 

• 

(SATURATEO) 

19F8  3A  12  29 

0383 

LDA 

NTEMP 

19F8  OF 

0384 

RST 

REF/8 

19FC  E8 

0385 

XCHG 

, 

19F0  78 

0386 

MOV 

A, 8 

19FE  30 

0387 

OCR 

A 

19FF  CD  OE  18 

0388 

CALL 

LOADV 

1A02  C8 

0389 

RZ 

• 

1A03  CD  88  00 

0390 

CALL 

NE816 

1A06  19 

0391 

DAO 

D 

1A07  7C 

0392 

MOV 

A,H 

1A08  87 

0393 

ORA 

A 

1A09  FO 

0394 

RP 

. 

1A0A 

0395  1 

1A0A 

0396  1  SLOPE  IS  FOUNO  TO 

8E  TOO  NEGATIVE  FROM  18-11 

1A0A 

0397  1  DECIDE  WHICH  OF  [81  ANO  18-11  IS  THE  PROBLEM 

1A0A 

0398  1 

1A0A  78 

0399 

MOV 

A, 8 

CALCULATE  -183-18-13 

PAGE  08 


291 


UC8  SPACE  SCIENCES  LA8 
CRRES  FLIGHT  SOFTWARE  V2.1 


12-6-88 


PAGE  09 


1A08  CO  OE 

18 

0400 

CALL 

LOAOV 

1A0E  EB 

0401 

XCHG 

1A0F  78 

0402 

nov 

A, 8 

1A10  3D 

0403 

OCR 

A 

1A11  CO  OE 

IB 

0404 

CALL 

LOADV 

1A14  19 

0405 

DAD 

0 

1A15  CO  88 

00 

0406 

CALL 

NEG16 

1A18  EB 

0407 

XCHG 

( 

1A19 

0408  1 

1A19  78 

0409 

nov 

A, 8  +EB+1 3 

1A1A  3C 

0410 

I  NR 

A 

1A18  CD  OE 

18 

0411 

.CALL 

LOAOV 

1A1E  C8 

0412 

RZ 

. 

1A1F  19 

0413 

OAD 

0 

1A20  E8 

0414 

XCHG 

1A21 

0415  t 

1A21  78 

0416 

HOV 

A, 8  +18-23 

1A22  06  02 

0417 

SOI 

2 

1 A24  CO  OE 

18 

0418 

CALL 

LOADV 

1A27  C8 

0419 

RZ 

• 

1A28  19 

0420 

DAO 

0 

1A29 

0421  1 

1A29  7C 

0422 

HOV 

A,H  IF  POSITIVE.  REPLACE  [81 

1A2A  87 

0423 

ORA 

A 

1A28  78 

0424 

HOV 

A, 8 

1A2C  F2  30 

1A 

0425 

JP 

INTERP 

1A2F  3D 

0426 

OCR 

A  ELSE  REPLACE  [8-13 

1A30 

0427  4 

1A30 

0428  i 

INTERPOLATE  POINT  [A3  FROH  SURROUNDING  POINTS 

1A30 

0429  1 

1A30  4F 

0430  INTERP  MOV 

C, A  INTERPOLATE  PT[X3 

iA31  3C 

0431 

INR 

A 

1A32  CO  OE 

18 

0432 

CALL 

LOAOV 

1A35  E8 

0433 

XCHG 

1A36 

0434  1 

1A36  79 

0435 

HOV 

A,C 

1A37  30 

0436 

OCR 

A 

1A38  CD  OE 

18 

0437 

CALL 

LOADV 

1A38  19 

0438 

OAD 

D 

1A3C  10 

0439 

D8 

SRHL 

1A30  EB 

0440 

XCHG 

1A3E 

0441  1 

1A3E  79 

0442 

HOV 

A,  C 

1A3F  CO  22 

18 

0443 

CALL 

REFV 

1A42  73 

0444 

HOV 

H,E 

1A43  23 

0445 

INX 

H 

1A44  72 

0446 

HOV 

H,0 

1A45 

0447  l 

1A45  3E  OB 

0448 

nvi 

A, PTSRE J 

1A47  CD  FC 

1A 

0449 

CALL 

GETOPT 
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1A4A  34 

0450 

I  NR 

M 

1A4B  C9 

0451 

RET 

1A4C 

0452  t 

1A4C 

0453  t  FIND  KIN  DELTA-V 

1A4C 

0454  *  ON  ENTRY: 

IA]  =  i  PTS  TO  AVERAGE  (M) 

1A4C 

0455  t  ON  EXIT  : 

CAT  =  INDEX  OF  MINIMUM  DELTA  V 

1A4C 

0456  t 

1A4C  11  FF  7F 

0457  FINDMIN  LXI 

D.7FFFH  IDE3=MAX  VALUE 

1A4F  4F 

045B 

MOV 

C,  A  C  =  M 

1A50  3E  FF 

0459 

HVI 

A,-l  MININX  =  -1 

1A52  32  13  29 

0460 

STA 

MININX 

1A55 

0461  t 

1A55  3E  7E 

0462 

MV  I 

A, 127-1  START  AT  127  -  M  -  1 

1A57  91 

0463 

SUB 

C 

1A58  47 

0464 

MOV 

8,  A 

1A59 

0465  t 

1A59  D5 

0466  DVLOP 

PUSH 

D 

1A5A  CD  74  1A 

0467 

CALL 

GETDV  COMPUTE  DELTA  V 

1A5D  D1 

046B 

POP 

D 

1A5E  7D 

0469 

MOV 

A.L  COMPARE  TO  OLD  MININUM 

1A5F  93 

0470 

SUB 

E 

1A60  7C 

0471 

MOV 

A,H 

1A61  9A 

0472 

SBB 

D 

1A62  D2  6A  1A 

0473 

JNC 

DVCONT 

1A65  EB 

0474 

XCHG 

IF  LESS,  SAVE  NEW  MINIMUM 

1A66  7B 

0475 

MOV 

A,B  AND  RECORD  THE  INDEX 

1A67  32  13  29 

0476 

STA 

MININX 

1A6A  05 

0477  DVCONT  DCR 

8 

1A6B  7B 

047B 

MOV 

A.B  CONTINUE  UNTIL  B<M 

1A6C  B9 

0479 

CMP 

C 

1A6D  D2  59  1A 

04B0 

JNC 

DVLOP 

1A70  3A  13  29 

04B1 

LDA 

MININX  RETURN  INDEX  OF  MINIMUM 

1A73  C9 

0482 

RET 

1A74 

04B3  t 

1A74 

0484  t  COMPUTE  DELTA-V  FOR  POINT  AT  IB] 

1A74 

0485  1  ON  ENTRY: 

EB]  =  INDEX  INTO  ARRAY 

1A74 

0486  I 

EC3  =  #PTS  TO  AVERAGE 

1A74 

0487  t  ON  EXIT  : 

CHL3  =  DELTA-V  OR  MAX  IF  SATURATED 

1A74 

04BB  t 

1A74  78 

04B9  GETDV 

MOV 

A,B  COMPUTE  SUM ( B+ 1 , M > 

1A75  3C 

0490 

I  NR 

A  MINUS  SUM (B-M,M) 

1A76  CD  87  1A 

0491 

CALL 

SUM 

1A79  D8 

0492 

RC 

v 

1A7A  E5 

0493 

PUSH 

H 

1A7B  7B 

0494 

MOV 

ft,  B 

1A7C  91 

0495 

SUB 

C 

1A7D  CD  B7  1A 

0496 

CALL 

SUM 

1AB0  D1 

0497 

POP 

D 

1A31  DB 

0498 

RC 

• 

1AB2  CD  8B  00 

0499 

CALL 

NE616 
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1A85  19 

0500 

DAD 

D 

1A86  C9 

0501 

RET 

1AB7 

0502  1 

1AB7 

0503  1  COMPUTE  THE  SUM  OF  ’C’  SAMPLES 

1AB7 

0504  1  ON  ENTRY: 

tAMNDEX  INTO  THE  ARRAY 

1AB7 

0505  1  ON  EXIT  : 

tHL3=  SUM  OR  7FFFH  IF  SATURATED  (HIGH  OR 

1AB7 

0500  1 

1A87  11  00  00 

0507  SUM 

LXI 

D,0  SUH=0 

1ABA  C5 

050B 

PUSH 

B 

1ABB  F5 

0509  sum 

PUSH 

PSH 

1ABC  CD  OE  IB 

0510 

CALL 

LOADV  ADD  1  VALUE 

1ABF  CA  9E  1A 

0511 

JZ 

OVER  IF  SATURATED.  RETURN 

1A92  19 

0512 

DAD 

D 

1A93  EB 

0513 

XCHG 

, 

1A94  FI 

0514 

POP 

PSH 

1A95  3C 

0515 

INR 

A  STEP  TO  NEXT 

1A96  OD 

0516 

DCR 

C  FOR  C  TIMES 

1A97  C2  BB  1A 

0517 

JNZ 

SUM1 

1A9A  EB 

051B 

XCHG 

RESULT  TO  tHLl 

1A9B  Cl 

0519 

POP 

B 

1A9C  B7 

0520 

ORA 

A  RETURN  NO  CARRY 

1A9D  C9 

0521 

RET 

1A9E 

0522  1 

1A9E  FI 

0523  OVER 

POP 

PSH 

1A9F  Cl 

0524 

POP 

B 

1AA0  21  FF  3F 

0525 

LXI 

H.03FFFH  RETURN  MAX 

1AA3  37 

0526 

STC 

HITH  CARRY  SET 

1AA4  C9 

0527 

RET 

1AA5 

052B  I 

1AA5 

0529  1  SHEEP  TRANSMIT 

1AA5 

0530  1 

1AA5  OE  40 

0531  TRANSMIT  MV I 

C,40H  CHECK  TRANSMIT  ENABLE 

1AA7  CD  DC  1A 

0532 

CALL 

CHKENA 

1AAA  CB 

0533 

RZ 

1AAB  CD  FO  1A 

0534 

CALL 

REFOPT 

1AAE  EB 

0535 

XCHG 

COPY  THE  OPTIONS/RESULTS 

1AAF  21  F2  24 

0536 

LXI 

H, SHPHDR+2  INTO  THE  HEADER 

1AB2  OE  OF 

0537 

MVI 

C.SHPBUF-SWPHDR-2/2  CONVERT 

1AB4  CD  DO  1A 

0538 

CALL 

EXPAND  FROM  BYTE  TO  INT 

1AB7 

0539  » 

1AB7  21  EO  OE 

0540 

LXI 

H, XNTCODE  SET  HEADER  FOR  WHICH  SHEEP 

1ABA  3A  El  24 

0541 

LDA 

BOOH 

1ABD  DF 

0542 

RST 

REF/B 

1ABE  22  FO  24 

0543 

SHLD 

SHPHDR 

1AC1 

0544  1 

1AC1  2A  EE  24 

0545 

LHLD 

SHPPTR  COMPUTE  LENGTH  OF  PLAYBACK 

1AC4  11  10  DB 

0546 

LXI 

D, -SHPHDR 

1AC7  19 

0547 

DAD 

D  ADD, THEN  DIV  BY  2 

1AC8  10 

054B 

DB 

SRHL 

1AC9  EB 

0549 

XCHG 

• 
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1ACA 

21 

FO 

24 

0550 

LX  1 

H, SWPHOR  TELL  THE  TELEMETRY  FORMATTER 

1  AGO 

C3 

CF 

13 

0551 

JNP 

ELEXM1T 

1AOO 

0552 

1 

1AOO 

1A 

0553 

EXPAND  LOAX 

0  CONVERT  BYTE  TO  1NT  ARRAY 

1AC1 

13 

0554 

IN  X 

0 

1AB2 

77 

0555 

(10V 

M.A 

1AD3 

23 

0556 

1  NX 

H 

1AD4 

36 

00 

0557 

nvi 

H ,  0 

1A06 

23 

0558 

1NX 

H 

1A07 

OB 

0559 

DCR 

C 

1AOB 

C2 

00 

1A 

0560 

JNZ 

EXPAND 

1ACB 

C9 

0561 

RET 

1AOC 

0562 

1 

1ADC 

0563 

1  OPTIONS  REFERENCING 

1AOC 

0564 

1 

1ADC 

CO 

FO 

1A 

0565 

CHKENA 

CALL 

REFOPT  CHECK  ENABLE  OPTIONS 

1ABF 

C3 

E5 

1A 

0566 

JNP 

CHK1 

1AE2 

CO 

02 

IB 

0567 

CHKNTB 

CALL 

REFCQN  CHECK  ENABLE  CONSTANTS 

1AE5 

CD 

D2 

13 

056B 

CHK1 

CALL 

ELESTAT  GET  THE  1/V  NODE 

1AEB 

OF 

0569 

RRC 

1AE9 

79 

0570 

MOV 

A,  C 

IAEA 

02 

EE 

1A 

0571 

JNC 

6M1 

1AED 

87 

0572 

ADD 

A  IN  INODE,  HOVE  BITS  OVER 

1AEE 

A6 

0573 

ghi 

ANA 

N 

1AEF 

C9 

0574 

RET 

1AFO 

0575 

» 

1AFO 

2A 

El 

24 

0576 

REF0P7 

LHLO 

BOON  L=BQOH  NUHBER  (1,3  =  V12/V34) 

1AF3 

2D 

0577 

REFL 

OCR 

L  IF  1,  RETURN  V12  LIST 

1AF4 

21 

C3 

2« 

057B 

LX1 

H.RAN12 

1AF7 

C9 

0579 

RZ 

14F8 

21 

02 

24 

05B0 

LX1 

H, RAN34 

1AFB 

C9 

0581 

RET 

1AFC 

0582 

1 

1AFC 

CD 

FO 

lH 

05B3 

GETOPT 

CALL 

REFOPT  CHLI-)OPTIONS 

1AFF 

DF 

05B4 

RST 

REF/8  CHL3-)  OPTlONtAI 

1  BOO 

7E 

05B5 

NOV 

A,N 

1B01 

C9 

05B6 

RET 

1B02 

05B7 

1 

1B02 

2A 

El 

24 

05BB 

REFC./i 

LHLD 

BOON  RETURN  CONSTANTS 

1B05 

2D 

0589 

DCR 

L 

1B06 

21 

3E 

IB 

0590 

LXI 

H ,  CON  1 2 

1B09 

C8 

0591 

RZ 

1BOA 

21 

46 

IB 

0592 

LXI 

H,C0N34 

1BOO 

C9 

0593 

RET 

1BOE 

0594 

t 

1 BOE 

CD 

22 

IB 

0595 

LOAOV 

CALL 

REFV  LOAO  16  BIT  FROH  ARRAY 

1B11 

CO 

10 

IB 

0596 

CALL 

L02 

1B14 

7C 

0597 

NOV 

A ,  H 

1B15 

FE 

07 

059B 

CPI 

7 

1B17 

CB 

0599 

RZ 

PASE  12 
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1818  E4  OF 

0600 

ANI 

15 

1 B 1 A  FE  08 

0601 

CPI 

8 

181C  C9 

0602 

RET 

• 

IBID 

0603  1 

IBID  7E 

0604  LD2 

HOV 

A,H 

1B1E  23 

0605 

INX 

H 

181F  66 

0606 

HOV 

H,H 

1B20  6F 

0607 

HOV 

M 

1B21  C9 

0608 

RET 

1822 

0609  1 

1B22  2A  10  29 

0610  REFV 

LHLD 

BPTR 

REFERENCE  ARRAY  I A] 

1825  87 

0611 

ADD 

A 

(TINES  2) 

1626  87 

0612 

ADD 

A 

(TINES  4) 

1827  D2  28  18 

0613 

JNC 

REFV1 

IF  NO  CARRY,  HL=HL+A 

1B2A  24 

0614 

INR 

H 

1B2B  DF 

0615  REFV1 

RST 

REF/8 

1B2C  C9 

0616 

RET 

182D 

0617  * 

182D 

0618  *  RAH  AREA  DEFINITIONS 

1B2D 

0619  1 

1B2D 

0620  OPT 

EQU 

0 

OPTIONS 

182D 

0621  ANGSWP 

EQU 

1 

SWEEP  ANGLE 

1B2D 

0622  ALGNO 

EQU 

2 

ALGORITHM  1 

1B2D 

0623  ALT 

EQU 

3 

8IAS  ALTERNATE 

1B2D 

0624  RESULT 

EQU 

4 

8 1 AS  RESULT 

182D 

0625  HAV6 

EQU 

5 

IPOINTS  TO  AVERAGE 

1E2D 

0626  NREJ 

EQU 

6 

NOISE  PASS  LIHIT 

182D 

0627  I STEP 

EQU 

7 

I8IAS  STEP  (VNODE! 

182D 

0628  180 

EQU 

8 

INITIAL  I8IAS  (VHODEi 

1B2D 

0629  VSTEP 

EQU 

9 

V8IAS  STEP  (IHODE) 

1B2D 

0630  V80 

EQU 

10 

INITIAL  VOLTAGE  (IHODE) 

182D 

0631  PT5REJ 

EQU 

11 

IPOINTS  REJECTED  BY  SHOOTHING 

182D 

0432  * 

1B2D 

0633  1  DEFAULT 

FOR  VI 2  AND  V34 

182D 

0634  1 

182D  00 

0635  ROHOEF  DB 

0 

INITIAL  STATE=0 

1P2E  08 

0636 

DB 

B 

♦SPINS  8ETWEEN  SWITCHING  (4  HINUTES) 

182F 

0637  1 

1B2F  CF 

0&3B 

D8 

OCFN 

USE  ALTERNATE  RESULT,  ALL  ELSE  ENABLED 

1830  58 

0639 

D8 

V1SNP 

ANGLE  TO  SWEEP  AT 

1831  00 

0640 

DB 

0 

AL6I0 

1B32  FO 

0641 

DB 

-16 

ALTERNATE  =  -40  NANOAHPS 

1833  FF 

0642 

D8 

-1 

RESULT 

1834  05 

0643 

D8 

5 

H=5 

1835  08 

0644 

DB 

B 

N=8 

1836  02 

0645 

DB 

2 

ISTEP  VALUE 

1B37  B1 

0646 

D8 

-127 

IBIASO 

1B3B  02 

0647 

D8* 

2 

STEP  VALUE 

1B39  B1 

064B 

D8 

-127 

V8IAS0 

183A  00 

0649 

DB 

0 
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1B3B  00 

0650 

DB 

0 

1B3C  00 

0651 

OB 

0 

1B3D  00 

0652 

DB 

0 

1B3E 

0653  t 

1B3E  16 

0654  CON 12 

DB 

016H 

1B3F  ?F 

0655 

OB 

V1FIT-1 

1  SET  BIAS1&2  VALUES  JUST  BEFORE  FIT 

1B40  01 

0656 

DB 

1 

BIAS  1.2  PAIR  IN  VOLT  PHASE 

1E41  06 

0657 

DB 

VI 

MEASUREMENT  QTYS 

1B42  FC 

065B 

DB 

-V2F 

1B43  01 

0659 

OB 

1 

BIAS  1,2  PAIR  IN  CURR  PHASE 

1B44  OB 

0660 

DB 

RI1 

1B45  04 

0661 

DB 

RI2 

1B46 

0662  * 

1B46  34 

0663  C0N34 

DB 

034H 

1847  IF 

0664 

DB 

V3FIM1256/256  CHAN6E  BIAS34  BEFORE  FIT 

1B4B  03 

0665 

DB 

3 

BIAS  3.4  IN  VOLT  PHASE 

1B49  03 

0666 

DB 

V3 

1B4A  OC 

0667 

OB 

V4 

1B4B  01 

0668 

DB 

1 

BIAS  1,2  IN  CURR  PHASE 

1B4C  OB 

0669 

DB 

RI1 

MEASURE  RI1/2 

1B4D  04 

0670 

DB 

RI2 

1B4E  00 

V  0671 

DB 

256 

END  OF  SHP 

1B4F 

0672  1 

1B4F 

0673  t  ENTER  COMMANO  VECTOR  INTO  TABLE 

1B4F 

0674  1 

1B4F 

0675 

ORB 

SWPC00E/4+CM0TAB 

005B  IB  IB 

0676 

OH 

SNPCMD 

005A 

0677  » 

005A 

067B  »  SNP  RAM  AREA 

005A 

0679  » 

005A 

06BO 

ORB 

SHPRAM 

24C0 

06B1  INDEX 

DS 

1 

COMMANO  VALUE  ENTRY 

24C1 

06B2  STATE 

DS 

1 

STATE  OF  SHEEP  MOOULE 

24C2 

06B3  SPINMAX  OS 

1 

(SPINS  BETWEEN  SHEEPS 

24C3 

06B4  RAM 12 

OS 

15 

PARAMETERS  FOR  BOOHS  1,2 

24D2 

06B5  RAN34 

DS 

15 

PARAMETERS  FOR  BOOHS  3,4 

24E1 

06B6  BOOM 

DS 

1 

BOOM  SYSTEM  (0=V12) 

24E2 

06B7  * 

24E2 

06BB  SHPREQ  DS 

1 

SHEEP  REQUEST 

24E3 

06B9  SNPOK 

OS 

1 

SHEEP  REQUEST  OK 

24E4 

0690  SPINCNT  DS 

1 

SPIN  COUNTER 

24E5 

0691  ANAVECT  OS 

4 

VECTOR  =  (AA,C3,XX,XX) 

24E9 

0692  * 

24E9 

0693  SHPOEL  OS 

1 

BIAS  DELTA 

24EA 

0694  SHPBIAS  DS 

1 

BIAS  VALUE 

24EB 

0695  SHPPAIR  DS 

1 

SHP  BIAS  OACS  TO  USE 

24EC 

0696  QTYA 

OS 

1 

MUX  QTYS 

24E0 

0697  QTYB 

OS 

1 

24EE 

069B  * 

24EE 

0699  SHPPTR 

DS 

2 

SAMPLE  POINTER 
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24F0 

0700  SMPHOR  DS 

2t  1 6 

SHEEP  HEADER  INFO 

2510 

0701  SWPBUF  DS 

2*128*2*2  DATA  AREA 

2910 

0702  SWPEND  EflU 

$ 

2910 

0703  1 

2910 

0704  BPTR  DS 

2 

BUFFER  POINTER 

2912 

0705  NTEMP  DS 

1 

N  TEMPORARY 

2913 

0706  H1N1NX  DS 

1 

MINIMUM  INDEX  CALC 

2914 

0707  SAMMODE  DS 

1 

SAWTOOTH  MODE  SAVED 

2915 

0708  NEEDFLIP  DS 

1 

RELAYS  NEED  FLIPPING  IF  N2 

2916 

0709  t 

2916 

0710  1  EXTERNALS 

2916 

0711  1 

2916 

0712  ELEXNT  EfiU 

ELE+OFH 

2916 

0713  ELESTAT  EQU 

ELE+12H 

2916 

0714  SAMDSC  EQU 

SAW+6 

2916 

0715  1 

2916 

0716  NORD  EQU 

BK6RAM+0 
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0000 

0001 

I 

0000 

0002 

«  CRRES  FLIGHT  PROGRAM — EXECUTIVE  CONTROL 

0000 

0003 

«  WRITTEN  BY  PETER  R  HARVEY 

0000 

0004 

t  FILE  EXEC, A 

0000 

0005 

I 

0000 

0006 

»  8085  SPECIFIC  INFORMATION 

0000 

0007 

I 

0000 

0008 

PSW  EQU 

6 

0000 

0009 

SP  EQU 

6 

0000 

0010 

« 

0000 

0011 

»  RAM  CONFIGURATION 

0000 

0012 

t 

0000 

0013 

RAM  EQU 

2000H 

0000 

0014 

RAMS1ZE  EQU 

1000H 

0000 

0015 

STACK  EQU 

RAM+RANSIZE-1 

0000 

0016 

I 

0000 

0017 

»  RESET  VECTOR 

0000 

0018 

» 

0000 

0019 

ORG 

0 

0000  C3 

6D 

IB 

0020 

JMP 

EXEIN1T  FOREGROUND  START 

0003 

0021 

BKG1N1T  DS 

3  BACKGROUND  START 

0006 

0022 

» 

0006 

0023 

»  MAIN  PROCESSOR  EXECUTIVE  CONTROL 

0006 

0024 

1 

0006 

0025 

ORG 

EXEC 

1B64  C3 

FD 

IB 

0026 

JMP 

EXEANG 

1667 

0021 

1 

1B67 

002B 

»  EXECUTIVE  STATUS 

1B67 

0029 

1 

1B67  21 

AO 

24 

0030 

EXEDSC  LX1 

H, VERS  ION  RETURN  VARS 

1B6A  DF 

0031 

RST 

REF/8 

1B6B  7E 

0032 

MOV 

A,M 

1B6C  C9 

0033 

RET 

1B6B 

0034 

» 

1B6D 

0035 

»  BEGIN 

1B6D 

0036 

» 

1B6D  31 

FF 

2F 

0037 

EXE1N1T  LXI 

SP, STACK  INI T  STACK  POINTER 

1B70  21 

00 

20 

0038 

LX  I 

H, RAM  ZERO  THE  RAM 

1B73  01 

00 

OF 

0039 

LXI 

B,RAMSlZE-256  EXCEPT  FOR  LAST  PAGE 

1B76  CF 

0040 

CLEAR  RST 

ZERO/8 

1B77  05 

0041 

DCR 

B 

1B78  C2 

76 

IB 

0042 

JNZ 

CLEAR 

1B7B 

0043 

» 

1B7B  CD 

9A 

00 

0044 

CALL 

IQINIT  INIT  THE  10  MODULE 

1B7E  CD 

03 

00 

0045 

CALL 

BKGIN1T  INIT  THE  BACKGROUND  MGR 

1B81  CD 

E4 

17 

0046 

CALL 

SWPINIT  INIT  EXECUTIVE  MODULES 

1B84  CD 

E8 

11 

0047 

CALL 

F1TINIT 

1B87  11 

40 

1C 

0048 

LXI 

D.1NISE9  SEND  INITIAL  COMMANDS 

IBB A  CD 

2A 

1C 

0049 

CALL 

CMDSTRING 

PAGE  01 
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1BBD  2A  AB  24 

0050 

LHLD 

VTINE  STAY  IN  INITIAL  MODE 

1B90  22  AC  24 

0051 

SHLD 

HDDCTR  FOR  THE  FULL  TIME 

1B93  2A  C7  IB 

0052 

LHLD 

DEFVECT  RESET  THE  FXEVECTDR 

1B96  22  80  24 

0053 

SHLD 

EXEVECT 

1B99 

0054 

t 

1B99 

0055 

1  MAIN  EXECUTIVE  LOOP 

1B99 

0056 

t 

1B99  3A  BO  24 

0057 

EXLOOP  LDA 

EXEVECT  IF  EXECUTIVE  VECTOR 

189C  FE  AA 

005B 

CPI 

OAAH  IS  ENABLED,  CALL  THE  ROUTINE 

1B9E  C2  A7  IB 

0059 

JNZ 

EXWT 

1BA1  CD  B1  24 

0060 

CALL 

EXEVECT+1 

1BA4  C-3  B5  IB 

0061 

JHP 

EXMGR 

1BA7 

0062 

t 

1BA7  3E  21 

0063 

EXWT 

HVI 

A,21H  VERSIONS.  1 

18A9  32  AO  24 

0064 

STA 

VERSION 

1BAC  2A  C5  IB 

0065 

LHLD 

LPPRDS  WAIT  -  LDW  POWER 

1BAF  22  AE  24 

0066 

SHLD 

PROS 

1BB2  CD  AE  24 

0067 

CALL 

PRDG 

1885 

0068 

t 

1885  CD  FI  11 

0069 

EXMGR 

CALL 

FITEXEC  CYCLE  BETWEEN  CALCULATING 

1BBB  CD  ED  17 

0070 

CALL 

SWPEXEC  FITS  AND  SWEEP  DATA 

1BBB  CD  OA  1C 

0071 

CALL 

DECMDDE  DECIDE  THE  MODE  (I/V) 

1B8E  97 

0072 

SU8 

A  CLEAR  THE  EXECUTIVE  WATCHDOG 

1BBF  32  84  24 

0073 

STA 

EXWATCH 

1BC2  C3  99  IB 

0074 

JHP 

EXLDQP 

1BC5 

0075 

1 

1BC5  76 

0076 

LPPRDG  HLT 

.  HALT  IN  RAH 

18C6  C9 

0077 

RET 

THEN  RETURN  AFTER  INTERRUPT 

18C7  55 

0078 

DEFVECT  DB 

055H  INVERT  VECTOR  ENABLE  BITS 

1BCB  C9 

0079 

RET 

AND  PUT  A  RETURN  IN  CASE 

1BC9 

0080 

1 

1BC9 

0081 

1  CAL/TEST 

MODE  PROGRAM 

1BC9 

0082 

1 

18C9  7C 

0083 

CALCHD 

MDV 

A,H  IF  EVEN,  SEND  THE  CAL 

18CA  OF 

0084 

RRC 

COMMAND  SEQUENCE 

18CB  11  B2  1C 

0085 

LX  I 

D, CALSEQ 

18CE  D2  2A  IC 

0086 

JNC 

CHDSTRING 

1BD1 

0087 

1 

1BD1  3A  ID  20 

0088 

SYNCWT 

LDA 

FRAME  WAIT  FOR  FRAHE(L) 

18D4  8D 

0089 

CMP 

L 

18D5  C2  D1  IB 

0090 

JNZ 

SYNCWT 

1BDB  C9 

0091 

RET 

1BD9 

0092 

1 

1BD9 

0093 

I  MODE 

CONTROL  SECTION 

IBD9 

0094 

1 

18D9 

0095 

VIANG 

E9U 

128+32 

18D9 

0096 

MDDEFLAS  EQU 

I 

18D9 

0097 

1 

I8D9  3E  98 

0098 

MODINI  MV I 

A, VIANG-8  CHANGE  ANGLE  =  11  DEGREES 

IBD8  32  A2  24 

0099 

STA 

CHGANG 
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1BDE 

0100  1 

1BDE  32  A!  24 

0101  HDDCHD  STA 

NQDT1H  RECORD  HDDE  TIMING 

1BE1  CD  BG  00 

0102 

CALL 

UNARY  CONVERT  VT1ME 

1BE4  2B 

0103 

DCX 

H 

1BE5  22  AB  24 

0104 

SHLD 

VT1NE 

1BEB  3A  At  24 

0105 

LDA 

MQDT1M  THEN  IT1ME 

13EB  OF 

0106 

RRC 

1BEC  OF 

0107 

RRC 

1BED  OF 

010B 

RRC 

1BEE  OF 

0109 

RRC 

1BEF  CD  80  00 

0110 

CALL 

UNARY 

1BF2  2B 

0111 

DCX 

H 

1BF3  22  AA  24 

0112 

SHLD 

1TIME 

1BF6  21  01  00 

0113 

LXI 

H.l  SET  FOR  SWITCH  NEXT  TINE 

1BF9  22  AC  24 

0114 

SHLD 

MDDCTR 

1BFC  C9 

0115 

RET 

1BFD 

0116  t 

1BFD  21  A2  24 

0117  EXEANG  LXi 

H.CHGANG  CHECK  IF  THE  ANGLE 

1C00  BE 

01 1 B 

CMP 

N  IS  CORRECT. 

1C01  CO 

0119 

RNZ 

a 

1C02  2A  AC  24 

0120 

LHLD 

MODCTR  THEN  DOWN-COUNT  THE  HDDE 

1C05  2B 

0121 

DCX 

H  COUNTER. 

1C06  22  AC  24 

0122 

SHLD 

MODCTR 

1C09  C9 

0123 

RET 

1C0A 

0124  1 

1C0A 

0125  1  DECIDE  WHEN  TD  SWITCH  NODES 

1C0A 

0126  I 

1C0A  2A  AC  24 

0127  DECHDDE  LHLD 

MODCTR  IF  CDUNT=0,  SWITCH 

1C0D  7C 

012B 

NOV 

A,H 

1C0E  B5 

0129 

ORA 

L 

1C0F  CO 

0130 

RNZ 

1C10 

0131  1 

1C10  CD  D2  13 

0132 

CALL 

ELESTAT  6ET  THE  CURRENT  HDDE 

1C  13  E6  01 

0133 

AN1 

H0DEFLA6 

1C15  2A  AB  24 

0134 

LHLD 

VT1HE  IF  1HDDE,  TRY  VTIHE 

1C1B  11  2E  1C 

0135 

LXI 

D, VCMDS  AND  SEND  V  COHHANDS 

1C1B  C2  24  1C 

0136 

JNZ 

TRYHODE 

1C1E  2A  AA  24 

0137 

LHLD 

ITIHE  IN  VHODE,  TRY  IHODE 

1C21  11  38  1C 

013B 

LXI 

D, ICHDS  AND  SEND  1  CDHHANDS 

1C24 

0139  1 

1C24  7C 

0140  TRYHODE  NOV 

A , H  IF  HDDE  TIHE=0 

1C25  B5 

0141 

DRA 

L  DON’T  SWITCH  AT  ALL 

1C26  C8 

0142 

RZ 

a 

1C27  22  AC  24 

0143 

SHLD 

HDDCTR 

1C2A 

0144  I 

1C2A  3E  01 

0145  CHDSTRINS  HVI  A,1 

1C2C  E7 

0146 

RST 

4 

1C2D  C9 

0147 

RET 

1C2E 

0148  I 

1C2E  02  50 

0149  VCNDS 

DW 

5002H  ENABLE  V12  FITS 

301 


UC8  SPACE  SCIENCES  LAB 
CRRES  FLIGHT  SOFTWARE  V2.1 


12-6-88 


PAGE  04 


1C30  00  5C 

0150 

DH 

5C00H 

DISABLE  SAHTOOTH 

1C32  00  68 

0151 

DH 

6800H 

GO  TO  VOLTAGE  MODE 

1C34  01  62 

0152 

DH 

6201H 

PUT  OLD  VI 2  RESULT  OUT 

1C36  FF  FF 

0153 

DH 

-1 

1C38  03  50 

0154  ICHDS 

DH 

5003H 

DISABLE  V12  FITS 

1C3A  01  68 

0155 

DH 

6801H 

GO  TO  LANGHUIR  PROBE  MODE 

1C3C  03  5C 

0156 

DH 

5C03H 

ENABLE  SAHTOOTH  STEP+8IAS 

1C3E  FF  FF 

0157 

DH 

-1 

1C40 

0158  $ 

1C40  01  43 

0159  1N1SEQ  DH 

4301H 

FORMAT  0  1 

1C42  FO  01 

0160 

DH 

01F0H 

BIAS  1-4  TO  -40NAHPS 

1C44  FO  02 

0161 

DH 

02F0H 

1C46  FO  03 

0162 

DH 

03F0H 

1C4B  FO  04 

0163 

DH 

04F0H 

1C4A  FF  09 

0164 

DH 

09FFH 

GUARDS  1-2  TO  -1 

1C4C  FF  OA 

0165 

DH 

OAFFH 

1C4E  FF  11 

0166 

DH 

11FFH 

STU8S  1-2  TO  0 

1C50  FF  12 

0167 

DH 

12FFH 

1C52  FF  21 

0168 

DH 

21FFH 

FILTERS  1-7  TO  255 

1C54  FF  22 

0169 

DH 

22FFH 

1C56  FF  23 

0170 

DH 

23FFH 

1C5B  FF  24 

0171 

DH 

24FFH 

1C5A  FF  25 

0172 

DH 

25FFH 

1C5C  FF  26 

0173 

DH 

26FFH 

1C5E  FF  27 

0174 

DH 

27FFH 

1C60  FF  19 

0175 

DH 

19FFH 

VTRIHS  1-2  TO  -1 

1C62  FF  1A 

0176 

DH 

1AFFH 

1C64  OA  31 

0177 

DH 

310AH 

SET  10  (GROUND  OUTER  BRAID) 

1C66  08  30 

0178 

DH 

300BH 

RESET  11  (BIAS  REFS12-GND  NOT  P03) 

1C68  OD  30 

0179 

DH 

300DH 

RESET  13  (GUARD  FILTER  OFF) 

1C6A  OE  30 

0180 

DH 

300EH 

RESET  14  (STUB  FILTER  OFF) 

1C6C  11  30 

0181 

DH 

301 1H 

RESET  17  (BIAS3, 4  REF=V3,V4  NOT  GND) 

1C6E  14  31 

0182 

DH 

3114H 

SET  20  (UNBIAS  DC  PREAHP  3) 

1C70  15  31 

0183 

DH 

3115H 

SET  21  (UNBIAS  DC  PREAHP  4) 

1C72  00  30 

0184 

DH 

3000H 

RESET  0  (STEERING  FOR  20  AND  21) 

1C74  01  2A 

0185 

DH 

2A01H 

HUX  2=1  1KAGC  =  V12/R11  ) 

1C76  01  2B 

0186 

DH 

2801H 

MUX  3=1  (Vl/SC  =  VI  ) 

1C78  00  48 

0187 

DH 

4800H 

RAHBASE  0X2000 

1C7A  00  68 

0188 

DH 

6800H 

START  OUT  IN  VHODE 

1C7C  77  38 

0189 

DH 

3877H 

SHITCH  EVERY  128  SPINS 

1C7E  FF  CB 

0190 

DH 

0C8FFH 

COMMAND  COUNTER  (RESET/ERROR) 

1C80  FF  FF 

0191 

DH 

-1 

END  OF  LIST 

1C82 

0192  1 

1C82  00  60 

0193  CALSEQ  DH 

6000H 

DISABLE  SHEEPS 

1CB4  03  61 

0194 

DH 

6103H 

1C86  CO  58 

0195 

DH 

058C0H 

SAHTOOTH  OFFSET  =  -64 

1C88  02  5C 

0196 

DH 

05C02H 

DISABLE  SAHTOOTH  BIASING 

1C8A  03  68 

0197 

DH 

6803H 

SHITCH  TO  1M0DE  HITH  TEST  HARK 

1C8C  01  29 

0198 

DH 

2901H 

HUX  1=1  TO  GET  V1=B1 AS  1 

1C8E  00  80 

0199 

DH 

08000H 

BURST  FREQUENCY  0 
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1C90  11  31 

0200 

DM 

311 1H 

SET  K17 

1C92  01  30 

0201 

DM 

3001 H 

RESET  K1 

1C94  05  81 

0202 

DN 

0B105H 

BURST  FORMAT  =  5  (ALL  8TYS) 

1C96 

0203  1 

1C96  00  91 

0204 

DM 

9100H 

NA1T  FOR  FRAME (0) 

1C9S  9C  03 

0205 

DN 

039CH 

BIAS  3=  -100 

1C9A  64  04 

0206 

DN 

0464H 

BIAS  4=  +100 

1C9C  06  31 

0207 

DN 

3106H 

SET  RELAY (6) 

IC’E  20  91 

0206 

DN 

9120H 

NA1T  4  SECONDS 

ICAO  64  03 

0209 

DN 

0364H 

BIAS  3=  +100 

1CA2  5C  04 

0210 

DN 

049CH 

BIAS  4=  -IOC- 

1CA4  06  31 

0211 

GN 

3106H 

SET  RELAY (6) 

1CA6  40  91 

0212 

ON 

9140H 

WAIT  4  SECONDS 

1C  AG 

0213  1 

1CA3  03  5C 

0214 

DN 

05C03H 

SANOPT  «  GO 

1CAA  00  84 

0215 

DN 

0B400H 

BURST  GO 

1CAC  80  91 

0216 

DN 

09180H 

NA1T  FOR  B  SECONDS 

1CAE  00  B5 

0217 

DN 

08500H 

BURST  STOP/PLAYBACK 

1C80  00  5C 

0218 

DN 

05C00H 

TURN  OFF  SAN 

1CB2  00  68 

0219 

DN 

6800H 

VOLTAGE  MODE 

1CB4  00  60 

0220 

DN 

6000H 

REENABLE  SNEEPS 

1CE6  00  61 

0221 

DN 

6100H 

1C88  01  62 

0222 

DN 

6201H 

PUT  OUT  B1AS1/2  RESULT 

1C8A  03  62 

0223 

DN 

6203H 

AND  B1AS3/4  RESULTS 

1CEC  11  30 

0224 

DN 

301 1H 

RESET  K17  (B1AS3.4  REF-3. 4  NOT  GND) 

1C8E  FF  FF 

0225 

DN 

-1 

1CC0 

0226  1 

1CC0  4D  41  49  4E 

0227 

ASC 

"MA1N2.1 -HARVEY"  VERSION  STAMP 

32  2E  31  2D 

43  41  52  56 

45  59 

1CCE  00  V 

0228 

DB 

256 

END  OF  EXEC 

1CCF 

0229  1 

1CCF 

0230  1  RAH  AREA  FOR  THE  EXECUTIVE 

1CCF 

0231  1 

1CCF 

0232 

ORG 

EXERAM 

24A0 

0233  VERSION  DS 

1 

2*A1 

0234  H0DT1M  DS 

1 

24A2 

0235  CHGANG  DS 

1 

24A3 

0236  OTHER 

DS 

5 

24A8 

0237  VT1ME 

OS 

2 

2*4A 

0238  1  TIME 

DS 

2 

24AC 

0239  MODCTR  DS 

2 

24AE 

0240  FROG 

DS 

2 

RAM  AREA  TO  REST 

2480 

0241  EXEVECT  DS 

4 

FOREGROUND  VECTOR  (AA, C3, XX, XX) 

2484 

0242  1 

24B4 

0243 

COM 

EXNATCH  EXECUTIVE  NATCHDQG 

2484 

0244  EXHATCH  DS 

1 

2455  0245  1 

24B5  0246  I  CONTROLLED  NODULES 
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24B5 
24B5 
1680 
1683 
1683 
17E4 
17E7 
17EA 
17ED 
17F0 
17F0 
11E8 
11EB 
1 1  EE 
1  IF  1 
11F4 
11F4 
11F4 
11F4 
11F4 
11F4 
11F4 

004E  DE  IB 

0050 

0050 

0064  C9  IB 


0247  I 

0248  QRG  LD 

0249  LDINIT  DS  3 

0250  » 

0251  QRG  SHP 

0252  SMPINIT  OS  3 

0253  SWPANG  DS  3 

0254  SMPSTAT  DS  3 

0255  SWPEXEC  DS  3 

0256  t 

0257  QRG  FIT 

0258  FITINIT  DS  3 

0259  FITSNP  DS  3 

0260  F1TTEL  DS  3 

0261  FITEXEC  DS  3 

0262  I 

0263  ELESTAT  EQU  ELE+12H  MODE  STATUS 

0264  FRAME  EQU  BKGRAM+ 1  FRAME  PART  OF  CLOCK 

0265  t 

0266  *  DEFINE  EXECUTIVE  COMMANDS 
0267  * 

0268  ORG  38H/4+CMDTAB 

0269  DU  MODCMD 

0270  * 

0271  ORG  90H/4+CMDTAB 

0272  DU  CALCMD 
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0000 

0001  1 

0000 

0002  1  CRRES  FLIGHT  PROGRAM— BACKGROUND  MANAGEMENT 

0000 

0003  1  WRIT 

TEN  BY  PETER  R  HARVEY 

0)00 

0004  1 

0000 

0005  t  FILE 

:  BKG.A 

0000 

0006  1 

0000 

0007  DIGIT 

EQU 

OFOH  DIGIT  COMMAND  CODE 

0000 

OOOB  ENTER 

EQU 

OIOH  ’ENTER’  SUB-CODE 

0000 

0009  CSUM 

EQU 

0C8H  CHECKSUM  SET  COMMAND 

0000 

0010  RESET 

EQU 

070H  SOFTWARE  RESET  COMMAND 

0000 

0011  1 

0000 

0012  LEN1 

EQU 

22H  BOOMLEN/TEMPS  FROM  MUX  22 

0000 

0013  PSW 

EQU 

6  8085  SPECIFIC  INFORMATION 

0000 

0014  SF 

EQU 

6 

0000 

0015  RES75 

EQU 

16 

0000 

0016  MSE 

EQU 

8 

0000 

0017  MSK75 

EQU 

4 

0000 

0018  HSK65 

EQU 

2 

0000 

0019  MSK55 

EQU 

1 

0000 

0020  1 

0000 

0021  NRDBIT  EQU 

MSK75 

0000 

0022  FRMB1T  EQU 

MSK65 

0000 

0023  CMDBIT  EQU 

MSK55 

0000 

0024  % 

0000 

0025  1  6ACKR0UND  INITIALIZATION 

0000 

0026  * 

0000 

0027 

ORS 

3 

0003  C3  EO  IC 

0023 

JMP 

BKGINIT 

0006 

0029  1 

0006 

0030  »  BACKGROUND  SERVICE  FUNCTIONS 

0006 

0031  t 

0006 

0032 

ORG 

418 

0020  C3  Cl 

1G 

0033 

JMF 

BK6FNS 

0023 

0034  I 

0023 

0035  1  WATCHDOG  TIMER  INTERRUPT 

0023 

0036  1 

0023 

0037 

ORG 

418+4 

0024  C3  00  00 

0038  TRAP 

JMP 

0  RESET  THE  CPU 

0027 

0039  » 

0027 

0040  »  COMMAND  INTERRUPT  (RESTART  5.5) 

0027 

0041  1 

0027 

0042 

ORG 

518+4 

002C  F5 

0043 

PUSH 

PSW  SAVE  ACCUM 

002D  C3  2D  IE 

0044 

JMP 

CMDSERV 

0030 

0045  1 

0030 

0046  t  SOFTWARE  COMMAND  INTERRUPT 

0030 

0047  t 

0030 

0048 

ORG 

618 

0030  C3  61 

IE 

0049 

JMP 

CHDGO 
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0033 

0050  1 

0033 

0051  1 

MAJOR  FRAME  INTERRUPT 

0033 

0052  1 

0033 

0053 

0R6 

618+4 

0034  F5 

0054 

PUSH 

PSW 

0035  C3  32  ID 

0055 

JMP 

MAJINT 

0038 

0056  1 

0038 

0057  1 

WORD  RATE 

CLOCK  INTERRUPT  (RESTART  7.5) 

0038 

0058  1 

0038 

0059 

0R6 

718+4 

003C  F5 

0060 

PUSH 

PSW  SAVE  PROGRAM  STATUS  WORD 

003D  C3  42  ID 

0061 

JMP 

WRCINT 

0040 

0062  1 

0040 

0063  1 

BEGIN  MODULE 

0040 

0064  * 

0040 

0065 

0R6 

BK6 

1CE0  21  CO  FF 

0066  8K6INIT  LXI 

H, OFFCOH  SET  FRAME 

1CE3  22  ID  20 

0067 

SHLD 

FRAME  SO  1ST  MAJOR  IS  7 

1CE6  21  FF  FF 

0068 

LXI 

H.-l  RESET  HOURS  AND  DAYS 

1CE9  22  IF  20 

0069 

SHLD 

HR225 

1CEC 

0070  1 

1CEC 

0071  I 

INITIALIZE  THE  PACKAGES  WHICH  OPERATE  IN  THE  BACKGROUND 

1CEC 

0072  1 

1CEC  CD  C4  16 

0073 

CALL 

DEPINIT  DEPLOYMENT 

1CEF  CD  80  16 

0074 

CALL 

LD1N1T  PROGRAM  LOADING 

1CF2  CD  50  OD 

0075 

CALL 

MAGINIT  MAGNETOMETER  DATA 

ICF5  CD  98  OE 

0076 

CALL 

PLAINIT  PLASMA  DATA 

1CF8  CD  CO  13 

007? 

CALL 

ELE1N1T  ELECTRIC  FIELD/LANGNUIR  PROBE  DATA 

ICFB  CD  03  10 

0078 

CALL 

BURIN1T  BURST  CONTROL 

1CFE  CD  30  13 

0079 

CALL 

SAWINIT  SAWTOOTH  CONTROL 

IDOI 

0080  t 

1D01  21  00  00 

0081 

LXI 

H.O  CLEAR  THE  EXP  OUTPUT 

ID04  22  3C  20 

0082 

SHLD 

EXPCNT 

ID07  CD  F8  ID 

0083 

CALL 

STVECT  AND  THE  8K6  VECTOR 

IDOA 

0084  1 

1D0A  3E  OD 

0085 

MVI 

A,MSE+WRD8IT+CMDBIT  DON'T  ACCEPT 

I  DOC  CD  CF  00 

0086 

CALL 

SETMASK  ANYTHING  UNTIL  MAJOR  FRM 

1D0F  FB 

0087 

El 

, 

1DI0  76 

0088 

HLT 

LET  THE  FRAME  INT  OCCUR 

I0II  3E  18 

0089 

MVI 

A, RES75+MSE  ENA8LE  WORD  AND  CMDS 

1 D 1 3  CD  CF  00 

0090 

CALL 

SETMASK 

I D 1 6 

0091  1 

1D16 

0092  t  NOW  IN  "NEITHERBROUND* 

1 D 1 6 

0093  1 

I D 16  97 

0094 

SUB 

A  RESET  COMMAND  COUNTERS 

1DI7  32  21  20 

0095 

STA 

GOODCNT 

ID1A  32  22  20 

0096 

STA 

BADCNT 

ID1D  32  2D  20 

0097 

STA 

STATUS  AND  STATUS  FLAG 

1D20  D3  00 

0098 

OUT 

0  RESET  DIAGNOSTIC  LEDS 

ID22  D3  01 

0099 

OUT 

I 
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1024 

0100 

1 

1024  21 

53 

07 

0101 

LX  I 

H, 30000/16  FARE  A  SUNPER10D 

1027  CD 

A3 

10 

0102 

CALL 

SUNRES 

OF  30  SECS  TO  START 

1D2A 

0103 

4 

1D2A  3E 

50 

0104 

KLY1NIT  MV1 

A, 8410 

10  SECS  PER  PULSE  f.lHZl 

1C2C  32 

7H 

Ji. 

20 

0105 

STA 

HYCNT 

1D2F  C3 

2B 

03 

0106 

JMP 

SETKLY 

1032 

0107 

t 

1032 

0108 

1  MAJOR  FRAME 

INTERRUPT 

1032 

0109 

4 

1032  3 A 

10 

20 

0110 

MAJ1NT  LDA 

FRAME 

MAKE  SURE  MIN0R=31 

1035  Fa 

IF 

0111 

ORI 

31 

1037  32 

10 

20 

0112 

STA 

FRAME 

1D3A  3E 

FC 

0113 

MO  I 

A,  252 

RESET  WORD  HUMBER 

103C  32 

IC 

20 

0114 

STA 

WORD 

1D3F  FI 

0115 

PUP 

PSW 

1040  FB 

0116 

El 

1041  C? 

0117 

RET 

1042 

0118 

I 

1042 

Oil? 

4  WORD  INTERRUPT 

1042 

0120 

* 

1042  E5 

0121 

WRC1NT  PUSH 

H 

SAVE  IHLJ  REGISTER 

1043  05 

0122 

PUSH 

0 

AND  [DEI  TOD 

1044  C5 

0123 

PUSH 

B 

1045  FB 

0124 

El 

1046 

0125 

I 

1046  3A 

1C 

20 

0126 

LOA 

WORD 

INCREMENT  WORD  BY  2 

1049  C6 

02 

0127 

ADI 

i. 

104B  32 

1C 

20 

0128 

STA 

WORD 

1D4E  B7 

0129 

ORA 

A 

DIV  BY  2  SINCE  WE  COUNT  16  BITS 

1D4F  IF 

0130 

RAR 

, 

AT  A  TIME 

1050  CD 

59 

ID 

0131 

CALL 

VECTOR 

VECTOR  TO  TMTABLE (WORD) 

1053 

0132 

4 

1053  Cl 

0133 

EXIT  POP 

B 

1054  01 

0134 

POP 

0 

RETURN  FROM  THE  INTERRUPT 

1055  El 

0135 

POP 

H 

1056  FI 

0136 

POP 

PSW 

1057  FB 

0137 

El 

, 

1058  C9 

0138 

RET 

• 

105? 

0139 

4 

1059 

0140 

4  VECTOR  TO  TMTABLE(WORD) 

1059 

0141 

4 

1059  OF 

0142 

VECTOR  RRC 

, 

IF  WORD  IS  ODD,  NULL 

1D5A  DA 

43 

IF 

0143 

JC 

NULL 

1050  6F 

0144 

MOV 

L.A 

MATE  THE  WORD  (0-127) 

1D5E  26 

IF 

0145 

MV1 

H.TMTABLE/256  INTO  A  TABLE  ADDRESS 

im  6E 

0146 

MOV 

L,M 

PICK  UP  ROUTINE  ADDRESS 

1061  E9 

0147 

PCHL 

. 

1062 

0148 

4 

1062 

014? 

4  MI  NOP  FRAME 

BOUNDARY  -BEGINNING  OF  WORD  0) 
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1D62 

0150 

1 

1D62 

21 

1C 

20 

0151 

MINOR 

LXI 

1D65 

3E 

04 

0152 

MV1 

1D67 

CD 

80 

ID 

0153 

CALL 

1D6A 

CD 

B5 

03 

0154 

CALL 

1D6D 

21 

64 

24 

0155 

LXI 

1D70 

34 

0156 

I  NR 

1D71 

CA 

24 

00 

0157 

JZ 

1074 

3  A 

ID 

20 

0158 

LDA 

1077 

CD 

53 

OD 

0159 

CALL 

1D7A 

3A 

ID 

20 

0160 

LDA 

1D7D 

C3 

C3 

13 

0161 

JMP 

1D80 

0162 

1 

1D80 

23 

0163 

INC 

1NX 

IDS! 

34 

0164 

I  NR 

1D82 

CO 

0165 

RNZ 

1D83 

3D 

0166 

DCR 

1D84 

C2 

80 

ID 

0167 

JNZ 

1D87 

C9 

0168 

RET 

1DSS 

0169 

1 

1D88 

0170 

1  UPDATE  SUN 

1D88 

0171 

1  m 

1DS8 

2A 

2E 

20 

0172 

SUNINC 

LHLD 

1D8B 

23 

0173 

INX 

1D8C 

22 

2E 

20 

0174 

SHLD 

1D8F 

2A 

30 

20 

0175 

LHLD 

1D92 

11 

00 

FF 

0176 

LXI 

1D95 

19 

0177 

DAD 

1D96 

D4 

B4 

ID 

0178 

CNC 

1D99 

22 

30 

20 

0179 

SHLD 

1D9C 

0180 

» 

1D9C 

CD 

D9 

00 

0181 

CALL 

1D9F 

C8 

0182 

RZ 

1DA0 

0183 

1 

1DA0 

2A 

2E 

20 

0184 

LHLD 

1DA3 

22 

25 

20 

0185 

SUNRES 

SHLD 

1DA6 

2B 

0186 

DCX 

1DA7 

22 

30 

20 

0187 

SHLD 

1DAA 

0188 

1 

1DAA 

21 

00 

00 

0189 

LXI 

1DAD 

22 

23 

20 

0190 

SHLD 

1DB0 

22 

2E 

20 

0191 

SHLD 

1DB3 

C9 

0192 

RET 

1DB4 

0193 

t 

1DB4 

EB 

0194 

PHASE 

XCH6 

1D85 

2A 

23 

20 

0195 

LHLD 

1D88 

23 

0196 

INX 

1DB9 

22 

23 

20 

0197 

SHLD 

ICBC 

2A 

25 

20 

0198 

LHLD 

1DBF 

19 

0199 

DAD 

H, WORD  INCREMENT  WORD 
A, 4  COUNTER. 

INC  (UP  TO  4  BYTES) 

RWATCH  RESET  HARDWARE  WATCHD06  CIRCUIT 
H, EXWATCH  UPDATE  EXECUTIVE  LOOP  WATCHDOG 
M  AND  IF  OVERFLOW  (256),  RESET  CPU 

TRAP 

FRAME  NOTIFY  THE  MODULES 

MA6FRAHE 

FRAME 

ELEFRAME 

H  STEP  TO  NEXT  BYTE 

K  INC  IT 

RETURN  IF  DONE 
A  60  ON 

INC 


ANGLE/  CHECK  FOR  SUN  PULSES 

SUNCTR 

H 

SUNCTR 

SUNDOWN  UPDATE  THE  SUN  ANGLE 
0,-256  BY  DIVIDING  THE 
D  SUNPERIOD  BY  256 

PHASE  IF  NE6.  BUMP  ANGLE 

SUNDOWN 

SUNSTAT  IF  NOT  SUN 

PULSE  YET,  QUIT. 

SUNCTR  SET  THE  SUN  PERIOD 
SUNPER 

H  RESET  THE  DOWN  COUNTER 

SUNDOWN 

H,0  RESET  THE  SUN  ANGLE 

ANGLE 

SUNCTR  AND  SUNINC  COUNTER 


PUT  REMAINDER  IN  [DEI 
ANGLE  ANGLE** 

H 

AN6LE 

SUNPER  ADD  NEW  SUN  PERIOD 
D  TO  THE  REMAINDER  FROM 
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1DC0  C9 

0200 

RET 

. 

LAST  PERIOD. 

10C1 

0201  t 

1BC1 

0202  I  SERVICE  ROUTINES 

1DC1 

0203  t 

IDCl  FE  01 

0204  BKGFNS  CPI 

I 

DETERMINE  FUNCTION 

10C3  CA  15  IE 

0205 

JZ 

BATCH 

1BC6  PE  02 

0206 

CPI 

? 

1DC8  CA  OA  IE 

0207 

JZ 

CC3T 

1DCB  FE  03 

0208 

CPI 

7 

1DCD  CA  F3  10 

0209 

JZ 

STVECT 

1DD0  FE  04 

0210 

CPI 

4 

1DD2  CO 

0211 

RNZ 

1003 

0212  1 

1DD3 

0213  1  START  EXPERIMENTAL  OUTPUT 

1D03 

0214  1 

1003  E5 

0215  STEXP 

PUSH 

H 

1004  CD  El  ID 

0216 

CALL 

CHKEXP 

CHECK  IF  GOING/STOPPED 

1007  El 

0217 

POP 

H 

1008  CO 

0218 

RNZ 

. 

IF  ALREADY  GOING,  RETURN 

1009  22  3A  20 

0219 

SHLO 

EXPADR 

SET  DUMP  ADDRESS 

1DDC  EB 

0220 

XCHG 

. 

IDDD  22  3C  20 

0221 

SHLO 

EXPCNT 

AND  SIZE 

1DE0  C9 

0222 

RET 

1DE1 

0223  1 

1DE1  2A  3C  20 

0224  CHK.EXF  LHLD 

EXPCNT 

1DE4  7C 

0225 

MOV 

A,H 

1DE5  B5 

0226 

ORA 

L 

1DE6  C9 

0227 

RET 

10E7 

0228  « 

IDE7  CD  El  ID 

0229  EXPTEL  CALL 

CHKEXP 

IF  EXPCNT=0,  RETURN (0) 

IDEA  C8 

0230 

RZ 

• 

1DEB  2B 

0231 

OCX 

H 

ELSE  CNT— 

1DEC  22  3C  20 

0232 

SHLO 

EXPCNT 

1DEF  2A  3A  20 

0233 

LHLD 

EXPADR 

AND  RETURN  MEM 1ADR++) 

1DF2  7E 

0234 

MOV 

A,M 

1DF3  23 

0235 

INX 

H 

10F4  22  3A  20 

0236 

SHLO 

EXPADR 

1DF7  C9 

0237 

RET 

1DF8 

0218  1 

1DF8 

0239  I  SET  BKG  VECTOR 

IDF8 

0240  t 

1DF3  7C 

0241  STVECT  MOV 

A,H 

IF  ZERO,  CLEAR  BKGVECT 

1DF9  B5 

0242 

ORA 

L 

1DFA  3E  AA 

0243 

MVI 

A.OAAH 

1DFC  C2  03  IE 

0244 

JNZ 

STVl 

1DFF  97 

0245 

SUB 

A 

1E00  21  40  IF 

0246 

LXI 

H.XTRA 

IE03  22  36  20 

0247  STVl 

SHLO 

BKGVECT 

1E06  32  38  20 

0248 

STA 

BVCHK 

IE09  C9 

0249 

RET 
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1E0A 

0250  » 

1E0A 

0251  1  COHHAND  COUNT  STATUS.  RETURNS  1  IF  MORE  ' 

1E0A 

0252  » 

1E0A  21  21  20 

0253  CCST 

LX  1 

H, 600DCNT  IF  COUNT  HATCHES 

1E0D  3A  35  20 

0254 

LDA 

CHDCNT  THE  4G00D  COMMANDS, 

1E10  96 

0255 

SUB 

H 

1E11  C8 

0256 

RZ 

RETURN (0)  ELSE  (li 

1E12  3E  01 

0257 

NV1 

A,  1 

1E14  C9 

0258 

RET 

1 E 1 5 

0259  I 

1E15 

0260  I  CQMHAND  BATCH  PROCESSOR 

1 E 1 5 

0261  t  ON  ENTRY; 

IDE1-)  COHHAND  LIST  ENDING  IN  - 

1E15 

0262  I 

IE  15  1A 

0263  BATCH 

LDAX 

D  HL=CMD 

1E16  6F 

0264 

MOV 

LjA 

IE  17  13 

0265 

INK 

D 

IE  18  1A 

0266 

LDAX 

D 

1E19  67 

0267 

NOV 

H.A 

1E1A  13 

0268 

INI 

D 

1 E IB  3C 

0269 

1NR 

A  IF  CMD=  -1,  SUIT 

1E1C  C8 

0270 

RZ 

1E1D  3A  2D  20 

0271  BATHT 

LDA 

STATUS  IF  COHHAND  C0H1NG  IN 

1E20  FE  AA 

0272 

CPI 

OAAH  WAIT  TILL  DONE 

1E22  CA  ID  IE 

0273 

JZ 

BATWT 

1E25  D5 

0274 

PUSH 

D 

1E26  CD  61  IE 

0275 

CALL 

CHDGO 

1E29  D1 

0276 

POP 

D 

1E2A  C3  15  IE 

0277 

J«P 

BATCH 

1E2D 

0278  1 

1E2D 

0279  1  COMHAND  INTERRUPT  SERVICE  ROUTINE 

1E2D 

0280  i  m 

1E2D  3E  AA 

0281  CHDSERV  HV1 

A, OAAH  SET  A  SERVICE  FLAG 

1E2F  32  2D  20 

0282 

STA 

STATUS 

1E32  3E  09 

0283 

HV1 

A, MSE+CHDB1T  HASK  OTHER  CHDS 

1E34  CD  CF  00 

0284 

CALL 

SETHASK  UNTIL  THIS  ONE 

1E37  FI 

0285 

POP 

PSW  IS  SERVICED. 

1E38  FB 

0286 

El 

• 

1E39  C9 

0287 

RET 

• 

1E3A 

0288  t 

1E3A 

0289  »  CHECK  FOR  COMMAND  INPUTS. 

1E3A 

0290  » 

1E3A  3A  2D  20 

0291  CMDEXEC  LDA 

STATUS  IF  COHHAND  STATUS 

1E3D  FE  AA 

0292 

CPI 

OAAH  IS  ZERO,  RETURN 

1E3F  CO 

0293 

RNZ 

• 

1E40  CD  CD  00 

0294 

CALL 

GETHASK  IF  A  COHHAND 

1E43  E6  10 

0295 

AN1 

CHD81TI16  SHIFTING  IN,  SUIT 

1E45  CO 

0296 

RNZ 

AND  GET  IT  NEXT  TIHE. 

1E46 

0297  » 

1E46  97 

0298 

SUB 

A  RESET  THE  STATUS 

1E47  32  2D  20 

0299 

STA 

STATUS 
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1E4A 

0300  » 

1E4A  CD 

D1 

00 

0301 

CALL 

CMDIN  READ  THE  COMMAND  REG 

1E4D  CD 

93 

00 

0302 

CALL 

HARK 

1E50  3E 

08 

0303 

HV1 

A , MSE  RE-ENABLE  CMDS 

1E52  CD 

CF 

00 

0304 

CALL 

SETMASK 

1E55  CD 

61 

IE 

0305 

CALL 

CHDGO  EXECUTE  IT 

1E5B  21 

21 

29 

0306 

LX  I 

H, GOODCNT  COUNT  600D  OR  BAD 

1E5B  D2 

5F 

IE 

0307 

JNC 

INRCNT 

1E5E  23 

0308 

INI 

H 

1E5F  34 

0309  INRCNT 

1NR 

H 

1E60  C9 

0310 

RET 

1E61 

0311  1 

1E61 

0312  1  COMMAND  DISTRIBUTION 

1E&1 

0313  1 

1E61  EB 

0314  CHDGO 

XCHG 

PUT  COMMAND  IN  [DEI 

1E62  7A 

0315 

MOV 

A , D  MASK  UPPER  5  BITS 

1E63  E6 

F8 

0316 

AN! 

0F8H 

1E65  OF 

0317 

RRC 

, 

1E66  OF 

0318 

RRC 

, 

1E67  21 

40 

00 

0319 

LI1 

H , CMDTAB  REFER  TO  TABLE 

1E6A  DF 

0320 

RST 

REF/8 

1E6B 

0321  1 

1E6B  7E 

0322 

MOV 

A,H  PICK  UP  ADDRESS 

1E6C  23 

0323 

INI 

H 

1E6D  66 

0324 

MOV 

H,H 

1E6E  6F 

0325 

MOV 

L,A 

1E6F 

0326  1 

IE6F  B 4 

0327 

ORA 

H  IF  ADDRFSS=D,  RETURN  CARRY 

1E70  37 

0328 

STC 

IE/1  CB 

0329 

RZ 

• 

1E72 

0330  1 

1E72  E5 

0331 

PUSH 

H  PUT  ON  STACK 

1E73  EB 

0332 

ICHG 

.  CHL3=C0HMAND 

1E74  7D 

0333 

MOV 

A , L  CA]=DATfi  PART 

1E75  B7 

0334 

ORA 

A  CLEAR  CARRY 

1E76  C9 

0335 

RET 

a 

1E77 

0336  1 

1E77 

0337  I  BACKGROUND  MODULE  COMMANDS 

1E77 

0338  1 

1E77  32 

35 

20 

0339  CSCMD 

STA 

CHDCNT  SET  CMDCNT  COMPARE  RE6=DATA 

1E7A  21 

00 

00 

0340 

HI 

H,0  CLEAR  CMD  COUNTERS 

1E7D  22 

21 

20 

0341 

SHLD 

GOODCNT 

1E80  C9 

0342 

RET 

• 

1E81 

0343  1 

1E81  FE 

10 

0344  D16CMD  CPI 

ENTER  IF  THE  ENTER  COMMAND 

1E83  CA 

95 

IE 

0345 

JZ 

ENTDI6 

1E8& 

0346  1 

1E86  2A 

33 

10 

0347 

LHLD 

D I  GREG 

1E89  29 

0348 

DAD 

H  D1GREG=D1GREG116  ♦  A 

1E8A  29 

0349 

DAD 

H 
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1E88  29 

0350 

DAD 

H 

1EBC  29 

0351 

DAD 

H 

1EBD  E6  OF 

0352 

AMI 

15 

1EBF  B5 

0353 

ORA 

L 

1E90  6F 

0354 

HDV 

L.A 

1E91  22  33 

20 

0355 

SHLD 

DIGREG 

1E94  C9 

0356 

RET 

RETURN (NO  CARRY) 

1E95 

0357  1 

1E95  2A  33 

20 

035B  ENTDI6 

LHLD 

DIGREG  HL=DIGIT  REGISTER 

1E9B  97 

0359 

SUB 

A  DIGIT  REGISTERS 

1E99  32  33 

20 

0360 

STA 

DIGREG 

1E9C  32  34 

20 

0361 

STA 

DIGRE6+1 

1E9F  C3  61 

IE 

0362 

JHP 

CHDGO  EXECUTE  COHHAND  tHLI 

1EA2 

0363  1 

1EA2 

0364  t  AUTONOniCS: 

KELLY  AND  TEMPERATURE  UPDATES 

1EA2 

0365  1 

1EA2  21  32 

20 

0366  AUTO 

LXI 

H, KLYCNT 

1EA5  35 

0367 

DCR 

H 

1EA6  CC  2A 

ID 

036B 

CZ 

KLYINIT 

1EA9  CD  C7 

16 

0369 

CALL 

DEPSAHP 

1EAC 

0370  I 

1EAC  3A  ID 

20 

0371 

LDA 

FRAME  EVERY  MAJOR  FRAME 

1EAF  E6  IF 

0372 

ANI 

31  SAMPLE  1  ANALOG  SU8C0H  VAL 

1EB1  CO 

0373 

RNZ 

1E82 

0374  I 

1EB2 

0375  t  SAMPLE  BOOM  LENGTHS  AND  1  DF  4  TEMPERATURES 

1EB2 

0376  I 

1EB2  3A  ID 

20 

0377  TEHPSAHP  LDA 

FRAME  COMPOTE  WHICH  ONE 

1E85  07 

0378 

RLC 

1EB6  07 

0379 

RLC 

1EB7  07 

03B0 

RLC 

1EB8  E6  07 

03B1 

ANI 

7 

1EBA  FE  06 

03B2 

CPI 

6  IF  6  DR  7,  QUIT 

1E8C  DO 

0383 

RNC 

1EBD  F5 

03B4 

PUSH 

PSN 

1E8E  C6  22 

0385 

ADI 

LEN1  ADD  TD  LEN1  MUX  ADDRESS 

1EC0  CD  E6 

00 

0386 

CALL 

SAMPLE 

1EC3  29 

0387 

DAD 

H  CONVERT  TD  8  BITS 

1EC4  29 

0388 

DAD 

H 

1EC5  29 

0389 

DAD 

H 

1EC6  29 

0390 

DAD 

H 

1EC7  5C 

0391 

HDV 

E,H 

1ECB  FI 

0392 

POP 

PSN  GET  THE  0-3  AGAIN 

1EC9  21  27 

20 

0393 

LXI 

H ,  SLE  N 1 

1ECC  DF 

0394 

RST 

REF/8 

1ECD  73 

0395 

HDV 

M,E 

1ECE  C9 

0396 

RET 

1ECF 

0397  1 

1ECF 

0398  (  DIGITAL  SU8CDM  TABLE 

1ECF 

0399  1 
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1ECF  32 

0400  DSCTAB  DB 

4B+2  QTYS  IN  PKB 

1ED0  CC  13 

0401 

DW 

ELEDSC  PK6  ADDRESS 

1ED2  OB 

0402 

DB 

B 

1ED3  67  IB 

0403 

DW 

EXEDSC 

1ED5  15 

0404 

DB 

2+15+4 

1ED6  74  02 

0405 

DW 

IDDSC 

1ED3  OC 

0406 

DB 

12 

1ED9  FO  17 

0407 

DW 

SWPDSC 

1EDS  04 

040B 

DB 

4 

1E0C  36  13 

0409 

DW 

SAWDSC 

1EDE  04 

0410 

DB 

4 

1EDF  11  10 

0411 

DW 

BURDSC 

1EE1  05 

0412 

DB 

5 

1EE2  CA  16 

0413 

DW 

DEPDSC 

1EE4  01 

0414 

DB 

1 

1EE5  9E  OE 

0415 

DW 

PLADSC 

1EE7  64 

0416 

DB 

100 

1EEB  F3  IF 

0417 

DW 

BKGDSC 

1EEA 

041B  1 

1EEA 

0419  » 

SOFTWARE  RESET 

1EEA 

0420  1 

1EEA  70 

0421  SDFTRESET  MDV  A,L  CHECK  FOR  COMMAND  7007 

1EEB  FE  07 

0422 

CPI 

07H 

1EE0  CA  00  00 

0423 

JZ 

0 

1EF0  37 

0424 

STC 

1EF1  C9 

0425 

RET 

1EF2  00 

V  0426 

DB 

256  PART  1  ENDS 

1EF3 

0427  1 

1EF3 

042B  1  TELEMETRY  WORD  FUNCTION  TABLE 

1EF3 

0429  1 

1EF3 

0430 

DRS 

f/256* 11256  NEXT  PAGE  BOUNDARY 

1F00 

0431  T 

EBU 

$ 

1F00  40 

0432  THTABLE  DB 

MNFR-T  0 

1F01  4E 

0433 

DB 

ET-T 

1F02  5E 

0434 

DB 

SPLO-T 

1F03  56 

0435 

DB 

MT-T 

1F04  B6 

0436 

DB 

ES-T 

1F05  B6 

0437 

DB 

ES-T 

1F06  BF 

043B 

DB 

SUN-T 

1F07  AA 

0439 

DB 

CHD-T 

1F0B 

0440  1 

1 

1F0B  BC 

0441 

DB 

PS-T 

1F09  4E 

0442 

DB 

ET-T 

1F0A  7B 

0443 

DB 

SPLIT-T 

1F0B  56 

0444 

DB 

MT-T 

1F0C  B6 

0445 

DB 

ES-T 

1F0D  B6 

0446 

DB 

ES-T 

1F0E  BF 

0447 

DB 

SUN-T 

1F0F  AA 

044B 

DB 

CMD-T 

1F10 

0449  t 

2 
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IF  1 0  B9 

0450 

DB 

H6-T 

IF  1 1  BO 

0451 

DB 

ETHS-T 

1 F 1 2  7B 

0452 

DB 

SPL1T-T 

1F13  B6 

0453 

DB 

HTNE-T 

1F14  B6 

0454 

DB 

ES-T 

IF  1 5  86 

0455 

DB 

ES-T 

1 F 1 6  BF 

0456 

DB 

SUN-T 

IF  1 7  AA 

0457 

DB 

CHD-T 

1 F  IB 

045B  1  3 

1F1B  BC 

0459 

DB 

PS-T 

1 F 19  4E 

0460 

DB 

ET-T 

1 F 1 A  78 

0461 

DB 

SPLIT-T 

IF  1 B  56 

0462 

DB 

HT-T 

IF  1C  B6 

0463 

DB 

ES-T 

1F1D  B6 

0464 

DB 

ES-T 

1F1E  BF 

0465 

DB 

SUN-T 

1  FI F  AA 

0466 

DB 

CMD-T 

1F20 

0467  I  4 

1P20  BC 

046B 

DB 

KLYT-T 

1F21  4E 

0469 

DB 

ET-T 

1F22  4D 

0470 

DB 

XTRA-T 

1F23  4D 

0471 

DB 

XTRA-T 

1F24  B6 

0472 

DB 

ES-T 

1F25  B6 

0473 

DB 

ES-T 

1F26  BF 

0474 

DB 

SUN-T 

1F27  AA 

0475 

DB 

CHD-T 

1F2B 

0476  I  5 

1F28  BC 

0477 

DB 

FS-T 

1F29  4E 

0478 

DB 

ET-T 

1FIA  4D 

0479 

DB 

XTRA-T 

1F2B  4D 

0480 

DB 

XTRA-T 

1F2C  86 

04B1 

DB 

ES-T 

1F2D  B6 

0482 

DB 

ES-T 

1F2E  BF 

04B3 

DB 

SUN-T 

1F2F  AA 

04B4 

DB 

CHD-T 

1F30 

04B5  1  6 

1F30  B9 

04B6 

DB 

HG-T 

1F31  BO 

04B7 

DB 

ETHS-T 

1F32  4D 

04BB 

DB 

XTRA-T 

1F33  B9 

04B9 

DB 

HE-T 

1F34  B6 

0490 

DB 

ES-T 

1F35  B6 

0491 

DB 

ES-T 

1F36  BF 

0492 

DB 

SUN-T 

1F37  AA 

0493 

DB 

CHD-T 

1F3B 

0494  1  7 

1F3B  BC 

0495 

DB 

PS-T 

1F39  4E 

0496 

DB 

ET-T 

1F3A  4D 

0497 

DB 

XTRA-T 

1F3B  4D 

049B 

DB 

XTRA-T 

1F3C  B6 

0499 

DB 

ES-T 
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1F3D  86 

0500 

DB 

ES-T 

1F3E  8F 

0501 

DB 

SUN-T 

1F3F  AA 

0502 

DB 

CHD-T 

1F40 

0503  1 

1F40 

0504  t  ROUTINES  FOR  EACH  WORD 

1F40 

0505  1 

1F40  C3  62  IB 

0506  HNFR 

JHP 

HI  NOR 

1F43 

0507  1 

1F43  3A  38  20 

0508  NULL 

LDA 

BVCHK.  CHECK  IF  ENABLED 

1F46  PE  AA 

0509 

CPI 

OAAH 

1F48  CO 

0510 

RN2 

1F49  2A  36  20 

0511 

LHLD 

BK6VECT 

1F4C  E9 

0512 

PCHL 

1F4D 

0513  1 

1F4D  C9 

0514  XTRA 

RET 

, 

1F4E 

0515  1 

1F4E  3E  0! 

0516  ET 

HV1 

A, 1  GET  2  BYTES 

1F50  CD  C9  13 

0517 

CALL 

ELETELEH 

1F53  C3  t'5  00 

0518 

JHP 

THQUT  AND  OUTPUT  ’EH 

1F56 

0519  » 

1F56  3E  01 

0520  H7 

HVI 

A, 1  6ET  2  HAG  BYTES 

1F58  CD  !F  OD 

0521 

CALL 

HA6TELEH 

1F5E  C3  05  00 

0522 

JHP 

THQUT 

1F5E 

0523  1 

1F5E 

0524  1  IN  FIRST  SPLIT.  GET  1  BYTE  FROM  ELE. 

1F5E 

0525  I  CHECK  WHETHER  NAG  OR  DSC  GIVES  THE  OTHER. 

1F5E 

0526  1 

1F5E  97 

0527  SPLF' 

SUE 

A  GET  A  BYTE  OF  ELE 

1F5F  CD  C9  13 

0528 

CALL 

ELETELEH 

:F62  E5 

052? 

PUSH 

H 

1F63  3A  ID  20 

0530 

LDA 

FFAHE  IF  ODD  HI  NOR 

lc66  OF 

0531 

PRC 

THEN  SET  AN  EXF  BYTE 

1F67  DA  '’I  IF 

0532 

JC 

SPLEXP 

1F6A  CD  5F  IF 

0533 

CALL 

DSC  BET  A  DSC  BYTE  IN  L 

1F6D  6F 

0534 

HOV 

L.A 

1F6E  C3  81  IF 

0535 

JHP 

JOIN  AND  JOIN  BYTES 

1F7!  CD  E7  ID 

0536  SPLEXP 

CALL 

EXPTEL  BET  EXP  BYTE  IN  L 

1F74  6F 

0537 

HOV 

L,A 

1F75  C3  81  IF 

0538 

JHP 

JOIN 

1F78 

0539  < 

1F78  97 

0540  SPLIT 

SUB 

A  6ET  1  BYTE  OF  E-FIELD 

iF79  CD  C9  13 

0541 

CALL 

ELETELEH  IN  L 

1F7C  E5 

0542 

PUSH 

H 

!F7D  97 

0543  SPLNAS  SUB 

A  GET  1  FROH  HAG 

1F7E  CD  5F  OD 

0544 

CALL 

HA6TELEH 

1F81 

0545  1 

1F81  01 

0546  JOIN 

POP 

D  PUT  TOGETHER 

1F82  63 

0547 

HOV 

H,E 

1F83  C3  05  00 

0548 

JHP 

THOUT  AND  OUTPUT  ’EH 

1F86 

0549  1 
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1F86  C3  C6  13 

0550  ES 

JMP 

1F89  C3  56  OD 

0551  MG 

JMP 

1F8C  C3  9B  OE 

0552  PS 

JMP 

1F8F  CD  S8  ID 

0553  SUN 

CALL 

1F92  3A  23  20 

0554 

LDA 

1F95  21  39  20 

0555 

LXI 

1F98  BE 

0556 

CMP 

1F99  77 

0557 

MOV 

1F9A  C8 

0558 

RZ 

1F9B  CD  EB  11 

0559 

CALL 

1F9E  3A  23  20 

0560 

LDA 

1FA1  CD  64  18 

0561 

CALL 

1FA4  3A  23  20 

0562 

LDA 

1FA7  C3  E7  17 

0563 

JMP 

1FAA 

0564  t 

1FAA  CD  33  13 

0565  CHD 

CALL 

IFAD  C3  3A  IE 

0566 

JMP 

1FB0  CD  4E  IF 

0567  ETHS 

CALL 

1FB3  C3  59  OD 

0568 

JMP 

1FB6  CD  56  IF 

0569  MTHE 

CALL 

1FB9  C3  5C  OD 

0570  HE 

JMP 

1FBC  C3  A2  IE 

0571  KLYT 

JMP 

1FBF 

0572  1 

1FBF 

0573  1  OUTPUT  THE 

1FBF 

0574  I 

1FBF  21  ID  20 

0575  DSC 

LXI 

1FC2  7E 

0576 

MOV 

1FC3  E6  IF 

0577 

ANI 

IFC5  C2  D3  IF 

0578 

JNZ 

1FC8  66 

0579 

MOV 

1FC9  3A  IE  20 

0580 

LDA 

1FCC  29 

0581 

DAD 

1FCD  17 

0582 

RAL 

1FCE  29 

0583 

DAD 

1FCF  17 

0584 

RAL 

1FD0  29 

0585 

DAD 

1FD1  17 

0586 

RAL 

1FD2  C9 

0587 

RET 

1FD3 

0588  4 

1FD3  7E 

0589  DSC  I 

MOV 

1FD4  E6  EO 

0590 

ANI 

1FD6  OF 

0591 

RRC 

1FD7  OF 

0592 

RRC 

1FD8  OF 

0593 

RRC 

IFD9  OF 

0594 

RRC 

1FDA  2F 

0595 

CHA 

1FDB  86 

0596 

ADD 

1FDC 

0597  t 

1FDC  OF 

0598 

RRC 

1FDD  E6  7F 

0599 

ANI 

ELESAMP 

HA66AIN 

PLASAHP 

SUNINC 

AN6LE  IF  THE  ANGLE  CHANGED, 

H.OLDANG  TAKE  THE  VECTOR 
m 

M 

FITSHP  IF  ANGLE  CHANGED,  FIT  SAMPLE 
ANGLE 

EXEANG  ELSE  TELL  EXECUTIVE 
ANGLE  AND  THE  SWEEP 
SWPANG 

SANSTEP 

CNDEXEC 

ET 

HAGSAHP 

HT 

MA6ENCD 

AUTO 

DIGITAL  SUBCOHHUTATOR  VALUES 

H, FRAME  DECIDE  WHETHER  TO 
A, M  OUTPUT  THE  FRAME  COUNTER. 

31  THIS  IS  DONE  ON  NEW  MAJORS 
DSC  I 

H,H  PUT  THE  MAJOR  FRAME  NUMBER 
CYCLE  T06ETHER  WITH  HIGHER 
H  TIME  BITS.  3  FROM  THE  FRAME 
AND  5  FROM  THE  NEXT  BYTE 
H 

H 


A.M  COMPUTE  THE  DSC  INDEX 
OEOH  BY  REMOVING  THE  TIMES 

WE  OUTPUT  THE  FRAME  COUNT 
PUT  -(MAJOR-1)  INTO  LOW 
BITS  AND  ADD  FRAME  COUNT 


M 

CONVERT  TO  VALUES  0  TO  119 
127 
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1FDF  21  CF  IE 

0600 

LX1 

H.OSCTAB  CHECK  TABLE  FOR  WHERE  TO  GET 

1FE2  EE 

0601  DSCF 

CNP 

N 

THE  OSC  BYTE.  IF  <  N,  GET 

ice:  OA  ED  IF 

0602 

JC 

DSCGO 

IT  FROM  THE  ROUTINE 

1FE6  96 

0603 

SUB 

N 

ELSE  DECRENENT  THAT  PART  OF 

1FE7  23 

0604 

1NX 

H 

THE  OSC  INDEX.  (EACH  ROUTINE  EXPECTS 

1FE8  23 

0605 

1  NX 

H 

TO  SEE  0-N  IN  ACCUH) . 

1FE9  23 

0606 

1NX 

H 

1FEA  C3  E2  IF 

0607 

JNP 

OSCF 

1FEO  23 

0608  DSCGO 

1  NX 

H 

1  FEE  5E 

0609 

NOV 

E.N 

1FEF  23 

0610 

IN* 

H 

1FFO  56 

0611 

NOV 

D,H 

1FF1  EE 

0612 

XCHG 

, 

1FF2  E9 

0613 

PCHL 

. 

1FF3 

0614  1 

1FF3 

0615  1  BKG  NODULE  DIGITAL  SUBCON 

1FF3 

0616  I 

1FF3  21  IE  20 

0617  EKSBSC  LX1 

H. CYCLE 

1FF6  DF 

0618 

RST 

REF/B 

1FF7  7E 

0619 

NOV 

A,  M 

1FF8  C9 

0620 

RET 

, 

1FF9  00 

V  0621 

OB 

257  BACKGROUNO-END 

1FFA 

0622  1 

1FFA 

0623  1  VARIABLES 

1FFA 

0624  1 

1FFA 

0625 

ORG 

BKGRAN 

201C 

0626  WORD 

OS 

1 

WORD  COUNTER 

2010 

0627  FRAME 

OS 

1 

MINOR /"MAJOR  FRAME  COUNTER 

201E 

0628  CYCLE 

OS 

1 

SUB-CON  CYCLE  COUNTER 

201F 

0629  HR225 

OS 

1 

2.25  HOUR  COUNTER 

2020 

0630  0AY24 

OS 

1 

24  DAY  COUNTER 

2021 

0631  I 

2021 

0632  GOOOCNT  OS 

1 

6000  CONNAND  COUNTER 

2022 

0633  BADCNT 

OS 

1 

BAD  CONNAND  COUNTER 

2023 

0634  I 

2023 

0635  ANGLE 

OS 

2 

SUN  AN6LE 

2025 

0636  SUNPER 

OS 

2 

SUN  PERIOD 

2027 

0637  1 

2027 

0638  SLEN1 

OS 

1 

LENGTH  NEASURENENTS 

2028 

0639  SLEN2 

DS 

1 

2029 

0640  STNP1 

OS 

1 

TEMPERATURE  NEASURENENTS 

202A 

0641  STHP2 

OS 

1 

202B 

0642  STHP3 

OS 

1 

202C 

0643  STHP4 

OS 

1 

2020 

0644  I 

2020 

0645  STATUS 

DS 

1 

CONNANO  REAOY  STATUS  BYTE 

202E 

0646  SUNCTR 

OS 

2 

COUNT  OF  SUN  INC  CALLS 

2030 

0647  SUNOONN  OS 

2 

DOWN  COUNTER 

2032 

0648  KLYCNT  OS 

1 

KELLEY  GAIN  TIMER 

2033 

0649  DIGREG  DS 

2 

DIGIT  CONNAND  REGISTER 

PAGE  13 
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2035 

0650  CHOCNT  OS 

1 

CONNAND  COUNT  CONPARE  REG 

2036 

0o51  8KGVECT  DS 

2 

BACKGROUND  VECTOR 

2038 

0652  8VCHK  OS 

1 

CHECK  BYTE  FOR  VECTOR 

2039 

0653  OLOANG  OS 

1 

OLO  SUN  ANGLE 

203A 

0654  EXPAOR  OS 

2 

EXP  OUTPUT  NEN  ADORESS 

203C 

0655  EXPCNT  OS 

2 

EXP  OUTPUT  COUNTER 

203E 

0656  1 

203E 

0657  t  EXTERNAL  REFERENCES 

203E 

0658  1 

203E 

0659  ORG 

ELE 

13C0 

0660  ELEINI  OS 

3 

INITIALIZATION 

13C3 

0661  ELEFRAHE  OS 

3 

HI NOR  FRANE 

13C6 

0662  ELESAHP  OS 

3 

SAMPLE  TINE 

13C9 

0663  ELETELEN  PS 

3 

TELENETRY  TINE 

13CC 

0664  ELEDSC  OS 

3 

OIGITAL  SU8C0N 

13CF 

0665  1 

13CF 

0666  ORG 

NAG 

0D50 

0667  NAG  IN  IT  OS 

3 

0053 

0668  NAGFRANE  OS 

3 

0D56 

06&9  HAGGA1N  OS 

■* 

0059 

0670  HA3SAHP  OS 

3 

0D5C 

0671  HAGENCO  OS 

y 

\ 

005F 

0672  NAGTELEH  OS 

3 

0D62 

0673  1 

0062 

0674  ORG 

PLA 

OE98 

0675  PLAINIT  DS 

3 

0E9B 

0676  PLASAHP  OS 

3 

OE’E 

0677  PLAOSC  OS 

3 

0EA1 

0678  1 

0EA1 

0679  ORG 

DEP 

16C4 

0680  DEPINT  DS 

3 

16C7 

0681  OEPSANP  OS 

3 

16CA 

0682  DEPOSC  OS 

3 

16  CO 

0683  1 

16CD 

0684  ORG 

LO 

1680 

0685  LOINIT  OS 

3 

1683 

0686  1 

1683 

0687  ORG 

FIT 

11E8 

0688  FITINIT  DS 

3 

11EB 

0689  FITSHP  OS 

3 

1 1  EE 

0690  FITTEL  OS 

3 

11F1 

0691  1 

11F1 

0692  ORG 

BUR 

1008 

0693  BURINIT  DS 

3 

1008 

0694  8URSAHP  DS 

3 

100E 

0695  BURTELEH  OS 

3 

1011 

0696  8UP.DSC  DS 

3 

1014 

0697  1 

1014 

0698  ORG 

SAM 

1330 

0699  5AMINIT  DS 

3 
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1333 

0700  SAHSTEP  OS 

j 

1336 

0701 

SAWDSC  OS 

3 

133? 

0702 

t 

1339 

0703 

ORG 

SWP 

17E4 

0704  SHPINIT  OS 

v> 

1 7E7 

0705 

SHPAN6  OS 

3 

17EA 

0706  3WPSTAT  OS 

■J 

17ED 

0707  SWPEXEC  03 

3 

17F0 

0706  SWPDSC  OS 

3 

17F3 

0709 

1 

17F3 

0710 

ORB 

EXEC 

1864 

0711 

EXEANG  PS 

3 

1167 

0712  EXED5C  OS 

*> 

1B6A 

0713 

t 

186A 

0714 

»  DEFINE  COMMANDS 

1P6A 

0715 

» 

1B6A 

0716 

ORG 

DIGIT/4+CMDTAB 

007C  81 

IE 

0717 

OH 

DI6CHD 

OC7E 

0718 

t 

007E 

0719 

ORG 

CSUM/4+CMDTAB 

0072  V 

IE 

0720 

CM 

CSCMD 

0074 

0721 

» 

0074 

0722 

ORG 

RESET/4+CMDTAB 

005C  ea 

it 

0723 

DM 

SOFTRESET 
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8000:  C3  6D  IB  C3  EO  1C  00  00  36  00  23  OD  C2  00  00  C0 
0010:  1A  77  13  23  OD  C3  OF  00  05  6F  DO  24  B7  C9  00  00 
0020:  C3  Cl  ID  00  C3  00  00  00  00  00  00  00  F5  C3  2D  IE 
0030:  C3  61  IE  00  F5  C3  32  ID  C9  00  00  00  F5  C3  42  ID 
0040:  63  01  00  01  76  01  90  02  AE  02  DD  13  E7  13  DE  IB 
8050:  2E  14  ED  13  13  12  46  13  IB  18  F7  13  EA  IE  00  00 
0060:  00  00  00  00  C9  IB  00  00  2A  10  24  10  44  10  44  10 
0070:  00  00  77  IE  DC  16  B5  OE  00  00  87  16  01  IE  7D  OD 
0080:  21  01  00  E6  OF  CS  29  3D  C3  85  00  7C  2F  67  7D  2F 
0090:  6F  23  C9  7C  D3  01  7D  D3  00  C9  3E  20  32  00  20  CD 
0OAO:  B5  03  3E  40  30  00  00  00  97  CD  10  03  3E  01  CD  18 
0080:  03  3E  3F  D3  F3  32  14  20  3E  01  32  01  50  CD  FA  02 
80C0:  97  32  15  20  32  16  20  32  17  20  C3  00  02  20  C9  30 
0ODO:  C9  2A  FF  AF  C9  22  FF  AF  C9  DB  00  E6  00  21  02  20 
80E0:  BE  77  C9  DB  90  C9  6F  3E  OD  30  7D  F6  80  D3  EO  3E 
0OFO:  19  3D  C2  FI  00  7D  D3  EO  3E  90  D3  F3  3E  FF  D3  50 
0100:  76  3E  10  D3  F3  3E  08  30  7D  2A  00  50  FE  07  CA  16 
0110:  01  FE  OD  C2  20  01  7D  E6  FO  6F  DB  80  E6  OF  B5  6F 
8120:  7C  E6  OF  67  3E  F9  D3  EO  FB  C9  57  FE  07  CA  5E  01 
0130:  FE  OD  CA  5E  01  FE  10  DA  4C  01  FE  2E  DA  58  01  11 
0140:  30  OE  CA  48  01  11  40  OF  7B  C3  4F  01  F6  10  5F  CD 
0150:  E6  00  7C  FE  07  CS  FE  00  C8  53  C9  E6  EF  57  CD  E6 
0160:  00  97  C9  IE  05  3E  03  CD  AF  01  FE  02  2E  OE  DA  87 
0170:  01  2E  07  C3  07  01  IE  OB  CD  AD  01  2E  OB  C3  07  01 
0100:  IE  09  CD  AD  01  2E  OD  F5  CD  3D  02  E6  FO  B5  6F  7C 
0190:  EE  7F  67  FI  CD  01  02  2E  14  OF  7D  D2  AO  01  F6  20 
01AO:  F3  D3  F3  E6  EF  D3  F3  F6  10  D3  F3  FB  C9  3E  01  25 
01BO:  A4  F5  03  5F  16  20  7D  12  FI  65  C9  F5  CD  4E  02  FI 
81C0:  17  FE  04  DA  02  02  FE  OE  DA  FD  01  FE  24  DA  EF  01 
91D0:  2E  01  FE  20  DA  D0  01  2D  F5  IF  7D  CD  BB  01  FI  D6 
81E0:  20  IF  37  F5  CD  BB  01  CD  A7  03  FI  B7  C3  BB  01  F5 
01FO:  IF  3E  01  CD  BB  01  FI  CD  02  02  C3  08  02  OF  07  D2 
3200:  00  02  CD  19  02  C3  OB  02  CD  3D  02  67  F6  OF  6F  CD 
0210:  01  02  3E  14  D3  F3  C3  A7  03  B7  IF  D6  02  DA  29  02 
0220:  E6  OF  C6  18  E6  27  C3  2C  02  3A  01  20  E6  3F  32  01 
0230:  20  5F  3A  15  20  E6  03  OF  OF  EE  CO  B3  C9  CD  45  02 
8240:  3E  10  C3  2C  02  3A  15  20  E6  83  32  15  20  C9  F5  FE 
0250:  02  D4  45  02  FI  11  15  20  F5  FE  00  DA  64  02  13  D6 
8260:  08  C3  59  02  CD  80  00  EB  FI  7B  DA  71  02  2F  A6  77 
8270:  C9  B6  77  C9  21  03  20  05  6F  7E  C9  C5  OE  08  C3  84 
0280:  02  C5  OE  10  F5  29  3E  08  17  F3  D3  F3  F6  02  D3  F3 
0290:  FB  OD  C2  85  02  FI  Cl  C9  IE  03  CD  AD  01  F5  EB  7A 
02AO:  EE  7F  57  2E  01  CD  00  03  FI  2E  10  C3  99  01  IE  OD 
02BO:  3E  07  CD  AF  01  54  3C  E6  07  CD  00  00  CD  00  03  3E 
02CO:  18  CD  AO  01  3E  30  CD  AO  01  C3  FA  02  C5  5D  21  F2 
02DO:  02  E6  07  4F  06  00  09  3A  14  20  CD  Cl  03  32  14  20 
82E0:  Cl  C3  FA  02  E6  07  5F  16  00  21  F2  02  19  3A  14  20 
02FO:  A6  C9  20  01  06  00  21  27  2F  10  21  00  00  11  00  00 
0300:  E5  3A  14  20  67  CD  7B  02  El  EB  CD  7B  02  7B  2F  67 
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8310:  CD  'B  02  3E  18  D3  F3  C?  8F  CD  80  00  CD  49  03  3E 
3320:  OA  CD  A7  03  3D  C2  21  03  C3  49  03  2E  80  C3  46  03 
8330:  E5  2E  40  CD  49  03  El  7C  2F  D3  DO  7D  2F  D3  90  2E 
8340:  40  C3  49  03  2E  20  CD  49  03  3A  00  20  AD  D3  CO  32 
8350:  00  20  C?  20  07  DC  7E  03  E5  C5  01  10  00  3E  CO  30 
B3i0:  05  37  CA  77  03  20  07  D2  60  03  00  3E  4D  30  3E  80 
8370:  2?  IF  30  OD  C2  6E  03  3E  45  30  FB  Cl  El  C9  E5  CD 
5380:  Si  03  El  C9  20  E6  SO  CS  C5  EB  0!  10  00  00  3E  CD 
9390:  30  20  04  A3  FA  91  03  OA  20  07  18  OD  C2  97  03  EB 
83A0:  3E  45  30  B7  Cl  FB  C9  F5  D5  11  FE  01  IB  7B  B2  C2 
33E0:  AC  03  Di  FI  C9  3A  00  20  F6  10  D3  CO  EE  10  D3  CO 
B3C0:  C9  4F  7E  2F  A1  4F  EE  1A  OF  DA  DO  03  29  C3  CS  03 
3300:  1A  A5  El  C9  4E  23  56  23  5E  C9  71  23  72  23  73  C9 
83E0:  7A  B7  C8  4o  23  7E  B7  CA  70  05  23  6E  67  78  A9  F2 
82F0:  FD  03  CD  81  05  CD  FD  03  79  EE  90  4F  C9  78  81  06 
6400:  40  FA  76  05  4F  CD  FO  05  C3  5C  05  7A  B7  C8  46  23 
3410:  7E  B7  CA  78  05  23  6E  67  78  A9  F2  26  04  CD  91  05 
6420:  CD  26  04  C3  F8  03  79  90  C6  40  FA  76  05  4F  C5  7C 
8430:  2F  47  7D  2F  4F  03  62  6B  09  DA  56  04  EE  3E  10  CD 
8140:  6F  04  29  DA  4C  04  0?  DA  4C  04  Cl  C9  Cl  1C  CO  14 
3450:  CO  11  00  80  OC  C9  3E  10  11  FF  FF  CD  6F  04  Cl  OC 
8460:  37  7A  IF  57  7B  !F  5F  DO  C3  4D  04  33  33  3D  C8  29 
6470:  DA  81  04  EB  29  E8  1C  E5  09  DA  68  04  El  ID  C3  6D 
64B0:  04  EB  29  EB  09  1C  C3  6D  04  C5  D5  CD  98  04  7A  B7 
8490:  CA  95  04  7*  07  Dl  Cl  C9  7E  EE  80  47  C3  AO  04  46 
54A0:  23  7E  23  6E  67  97  BC  CB  DA  CA  OC  05  79  90  87  F2 
34B0:  B8  04  78  41  4F  EB  90  87  CA  C2  04  OF  FE  10  DO  CD 
84C0:  F4  04  78  A9  FA  D2  04  19  EE  DO  7A  IF  57  7B  IF  5F 
81D0:  OC  C9  7B  95  7A  9C  DA  E7  04  57  7B  95  5F  21  00  00 
84E0:  B2  C2  21  05  OE  00  C9  7D  93  5F  7C  9A  57  48  21  00 
84F0:  00  C3  21  05  D6  08  DA  FF  04  6C  26  00  C8  D6  08  C5 
8500:  47  97  29  8F  04  C2  02  05  Cl  6C  67  C9  EB  48  C9  7A 
8510:  B7  OE  60  F2  21  05  CD  69  06  CD  21  05  79  F6  80  4F 
8520:  C9  79  B7  F2  2F  05  E6  7F  4F  CD  2F  05  C3  F8  03  7A 
8530:  E7  C2  59  05  B3  C2  4E  05  B4  C2  48  05  B5  C2  42  05 
8540:  4A  C9  55  06  18  C3  53  05  EB  06  10  C3  53  05  53  5C 
8550:  65  06  08  79  90  4F  DA  70  05  7A  6C  63  87  FA  66  05 
8560:  OD  29  3F  F2  60  05  57  5C  7D  07  DC  4D  04  79  87  FO 
8570:  OE  00  11  00  00  C9  FE  CO  D2  70  05  OE  7F  11  FF  FF 
8580:  C9  78  Eo  7F  47  79  E6  7F  4F  C9  79  EE  80  FA  97  05 
8590:  4F  CD  97  05  C3  69  06  E6  7F  FE  41  DA  C5  05  FE  60 
85A0:  D2  CC  05  21  00  00  D6  50  CB  EB  D2  BC  05  C6  10  CD 
35B0:  EC  05  EB  11  00  00  C9  29  2C  E8  3D  C8  29  EB  DA  B7 
85C0:  05  29  C3  B9  05  11  00  00  21  00  00  C9  11  FF  7F  21 
85D0:  FF  FF  C9  7A  87  C8  41  62  6B  C3  ED  03  7A  B7  C8  79 
S5E0:  E6  01  C4  CA  04  C5  CD  44  06  Cl  79  OF  C6  20  4F  C9 
95F0:  97  88  CA  08  06  B5  CA  09  06  E5  CD  OA  06  6C  67  E3 
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9160:  70  C2  46  11  3E  00  CD  AE  11  21  00  00  C9  34  6F  6E 
9170:  26  00  C9  3A  96  21  CD  E6  00  29  29  29  29  7C  CD  BA 
9180:  11  67  3A  97  21  BC  DC  E9  10  C9  B7  FO  2F  3C  C9  97 
9190:  CD  9E  OE  E6  40  CB  21  79  21  BE  CB  77  C3  E9  10  3A 
91  AO:  75  21  FE  Ah  CA  76  21  C9  3A  70  21  E6  ?0  C9  E6  70 
9160:  E5  6F  3A  70  21  E6  6F  B5  32  70  21  6F  26  D8  F7  El 
910:  C9  21  "0  21  7E  C6  10  77  C9  11  7A  21  21  DC  11  B7 
°1 EO :  CD  D3  11  CD  D6  11  1A  9E  12  13  23  C9  20  00  00  00 
91E0:  11  1C  20  OE  05  D7  C9  00  C3  F4  11  C3  29  12  C3  A3 
91F0:  12  C3  DD  12  21  80  22  OE  07  CF  21  D7  22  CD  03  12 
9200:  21  FB  22  11  20  13  OE  09  D7  11  IB  40  72  23  ID  C2 
9210:  OC  12  C9  5F  29  A5  57  7B  EE  22  21  86  22  A6  B2  77 
°220:  E6  02  CO  21  EO  22  C3  09  12  D6  AO  5F  E6  07  CO  3A 
9230:  86  22  E6  20  CO  78  CD  6B  12  3E  OF  CD  90  12  3A  B2 
9240:  22  11  30  22  CD  9D  12  21  B2  22  CD  64  12  3A  B6  22 
9250:  E6  02  CO  3E  OB  CD  90  12  3A  BO  22  11  80  21  CD  9D 
9260:  12  21  BO  22  7E  C6  02  E6  7F  77  C9  FE  80  21  B2  22 
9270:  CA  7E  12  87  CO  3A  B6  22  E6  02  CO  21  BO  22  7E  E6 
9280:  3F  CC  89  12  7E  E6  CO  77  C9  7E  EE  40  2C  77  2D  C9 
9290:  CD  1A  01  7A  CD  E6  00  7A  E6  10  B4  67  C9  EB  DF  73 
92A0:  23  72  C9  21  B4  22  7E  87  CA  83  12  35  21  B5  22  34 


325 


UCI  SPACE  SCIENCES  LAB  12-6-88 

CURES  FLIGHT  SOFTWARE  V2.1 


9ZE0 

6E 

7E 

C9 

21 

81 

16 

A1 

IE  B6 

7E  FE  AA  CA  BO  12 

92C0 

21 

B3 

Li 

lt> 

A3 

IE 

C6 

7E 

FE  AA 

CA  DO  12  3E  00  C9 

92D0 

36 

FF 

7B 

32 

B5 

22 

3E 

10 

32 

B4 

22  7A  C9  3A  B1  22 

■?IEO 

B? 

F2 

FE 

12 

3A 

83 

22 

B7 

F8  21 

30  22  CD  13  13  01 

92F0 

C7 

22 

11 

FB 

22 

CD 

C4 

03 

3E 

AA 

32  83  22  C9  21  BO 

9300 

21 

CD 

13 

13 

01 

87 

22 

11 

D7 

22 

CD  C4  08  3E  AA  32 

9710 

tl 

10 

-  i. 

C9 

DF 

3A 

66 

22 

E6 

08 

CE 

11  20  00  C3  CF  13 

9320 

3B 

AO 

F2 

41 

E6 

Ofc 

3F 

CC 

CD 

00 

00  00  00  00  00  00 

9330 

C3 

3C 

13 

C3 

5F 

13 

21 

A4 

21 

DF 

7E  C9  11  B5  13  21 

9340 

04 

21 

OE 

06 

D7 

C9 

7C 

E6 

07 

5D 

21  A4  21  DF  73  C9 

9350 

21 

AO 

21 

ii 

A4 

21 

OE 

04 

D7 

3E 

01  32  A3  21  C9  3fi 

9360 

A5 

21 

87 

C8 

3A 

ID 

20 

FE 

FE 

C2 

74  13  3A  1C  20  FE 

9370 

EO 

D4 

50 

13 

3h 

A8 

21 

OF 

BO 

21 

A3  21  35  CO  3A  A7 

9380 

21 

77 

3A 

A3 

21 

Ed 

02 

C4 

A5 

13 

21  A2  21  35  CA  9A 

9390 

13 

3A 

Hi 

21 

21 

AO 

21 

86 

77 

C9 

3A  A6  21  77  21  A1 

9300 

21 

97 

96 

77 

C9 

2h 

AO 

21 

3A 

A9 

21  67  E5  CD  63  01 

9380 

El 

24 

C7 

63 

01 

00 

02 

40 

02 

00 

01  00  00  00  00  00 

93C0 

C3 

D6 

13 

C3 

8B 

14 

c: 

6h 

15 

C3 

31  15  C3  42  15  C3 

93D0 

2E 

16 

3h 

77 

20 

C9 

21 

50 

20 

OE 

A5  CF  C9  7C  E6  07 

93E0 

FE 

07 

3F 

D3 

C3 

CC 

02 

7C 

OF 

7D 

C3  88  01  7C  E6  07 

93F0 

F6 

20 

67 

m 

LL 

50 

20 

C9 

C6 

3E 

71 

94  20  OF  11  OA  14 

9400 

D2 

06 

14 

11 

1C 

14 

3E 

01 

E7  C9 

12  31  13  31  07  30 

9410 

08 

30 

0? 

30 

10 

30 

01 

23 

01 

29 

FF  FF  07  31  08  31 

9420 

09 

31 

10 

31 

12 

30 

13 

30 

00  28  00  29  FF  FF  7C  E6 

9430 

04 

C2 

70 

14 

3E 

01 

11 

52 

20  CD  41  14  3E  02  11  54 

9440 

20 

A4 

C8 

7D 

OF 

OF 

OF 

OF 

CD  50  14  78  [6  04  5F  7D 

9450 

E5 

CD 

5D 

14 

EB 

73 

23 

72 

28  EB  El  B7  C9  21  3D  16 

9460 

E6  OF 

FE 

OA 

DA 

6A 

14 

21 

F5  IF  87  87  87  87  DF  C9 

9470 

7C  OF 

7D 

D2 

83 

14 

5D  3A  5B  20  21  95  20  DF  73  3A 

9480 

58  20 

3C 

FE 

60 

DO 

32 

5B 

20  B7  C9  21  7E  20  11  6A 

9490 

20  OF 

DA 

A5 

14 

EB  CD  EO 

14 

CD  EE  11  32  SB  20  3E 

9400 

FF 

32 

5A 

20  C9 

CD  EO  14 

3A 

ID  20  3C  E6  07  CC  09 

94B0 

15  CD 

13 

15 

97 

CD 

11 

10 

E6 

BO  5F  CD  EA  17  E6  01 

94C0 

6F 

3E 

02 

E5  E7 

El 

29 

DF 

3A 

94 

20  E6  41  29  DF  83 

9  4  DO 

5F 

2  A 

5E 

20  7C 

B5  CA 

DB 

14 

3E 

88  B3  32  77  20  C9 

94  EO 

22 

68 

20 

EB  22 

64  20 

11 

OE 

00  19  22  66  20  2A  68 

94F0 

20 

11 

oc 

00 

19 

3A 

92 

20 

77 

11 

07  00  19  7E  E6  FO 

9500 

jF 

3A 

93 

20  E6  OF  B3  77 

C9 

21 

56  20  CD  ID  15  22 

9510 

62  20 

C9 

21 

52 

20  CD 

ID 

15 

22  60  20  C9  3A  77  20 

9520 

E6  01 

IE 

02  C2 

28  15  5F 

16 

00 

19  7E  23  66  6F  28 

9530 

C9  2A 

68 

20  5E 

23  B7  CA 

3D 

15  53  5E  23  22  68  20 

9540 

EB  C9 

FE 

10  21 

52 

20  DA 

54 

15  D6  10  FE  20  21  56 

9550 

20  D2 

62 

15  F5 

3A 

IE 

20 

E6 

01 

CD  22  15  FI  23  C3 

9560 

67 

15 

Do 

20  21 

50  20  DF 

7E 

C9  21  5h  20  34  7E  OF 

9570 

DO  92 

15 

2A 

60 

20  23  22 

60 

20  CD  DA  15  21  92  20 

9580 

CD  B9 

15 

2 A  64 

20 

3A  5A 

20 

E6  02  CD  C4  15  22  64 

9590 

20  C9 

3A 

5A  20 

E6  02  CA 

OB 

10 

2A  62  20  23  22  62 

55fi0 

20  CD 

DA 

15  21 

93  20 

CD 

89 

15  2A  66  20  3fi  5A  20 

95B0 

E6  04 

CD 

C4 

15 

22  66  20 

C9 

7A 

E6  10  CA  CO  15  37 

95C0 

7E  17 

77  C9  C2 

PI 

15  EB 

29 

29  29  29  EB  72  23  73 

PA6E  07 


326 


UC8  SPACE  SCIENCES  LAB  12-6-BB 

CRRES  FLI6HT  SOFTWARE  V2.i 


95D0 

C9 

7A 

E6 

OF 

B6 

77 

23 

95E0: 

16 

7E 

E6 

40  C2 

FF 

15 

95F0 

F4 

15 

IE 

00 

7A 

CD 

E6 

9600 

E6 

3F 

2A 

50 

20 

DF 

5E 

9610 

17 

16 

CD 

OE 

10 

EB 

C9 

9620 

22 

5E 

20 

2A 

5C 

20 

5E 

9630 

20 

E6 

08 

37 

CO 

00 

4.4. 

5C 

9640 

8F  08 

OF 

88 

6F 

oe 

OF 

9650 

OB 

84 

8C 

37 

09 

86 

B3 

9660 

OB 

64 

ec 

B7 

09 

86 

83 

9670 

00 

00 

00  00 

00 

00  00 

9630 

21 

30 

29 

22 

20 

29 

C9 

9690 

16 

3D 

CA 

A5 

16 

3D 

CA 

96A0 

7D 

21 

29 

C3 

EB 

2A 

9680 

30 

29 

85 

FE 

AA 

CO 

97 

96C0 

00 

00 

00 

00 

C3 

DO 

16 

96D0 

CD 

E3 

00 

32 

45 

20 

21 

9tE0 

02 

17 

E6 

FC 

06 

DO 

37 

96F0 

07 

17 

DF 

7E 

7T 

Ji. 

44 

20 

9700 

20 

C9  7P 

■li 

49 

20 

C9 

9710 

CD 

63 

17 

CD 

18 

17 

D1 

9720 

CA 

38 

17 

FE 

02 

CA  55 

9730 

17 

D8 

FE 

03 

D2 

5A 

17 

9740 

CD 

CB 

17 

DA 

47 

17 

CO 

9750 

01 

37 

C3 

13 

03 

3E 

00 

9760 

4A 

20 

£6 

01 

B7 

C3 

18 

9770 

AB 

A6  5F 

3E 

02 

21 

46 

9730 

34 

C9 

6F 

3A 

44 

20  CD 

9790 

44 

20 

C9 

3A 

44 

20 

CD 

97A0 

3A 

4A 

20 

OF 

7B 

DO 

OF 

9780 

20 

B6  6F 

E6 

01 

C3 

7D 

97C0 

CD 

D6 

17 

21 

48 

20 

BE 

97D0 

CO 

CD 

D6 

17 

95 

C9 

2A 

97E0 

6C 

C9 

00 

00 

C3 

04 

18 

97F0 

FE 

06 

DA 

F7 

17 

C6 

09 

98  0 

E3 

24 

C9 

21 

Cl 

24 

9810 

OE 

OF 

D7 

36 

01 

3E 

93 

5520 

18 

EB 

21 

CO 

24 

OF 

D2 

9830 

C9 

5F 

B7 

CC 

67 

IS 

01 

9840 

02 

CO 

CD 

02 

IB 

23 

7E 

9850 

El 

24 

C4 

85 

18 

21 

El 

9360 

3A 

C2 

24 

7*3 

■JL 

E4 

24 

C9 

9870 

E4 

24 

87 

CO 

3E 

01 

CD 

9B80 

Cl 

24 

FE 

03 

CS  55  OE 

9390 

3E 

04 

6A 

CD 

F3 

1A 

DF 

98A0 

63 

01 

3A 

Cl 

24 

3D 

CO 

98B0 

36 

13 

32 

14 

29 

0! 

01 

9820 

18 

?7 

32  E2 

24 

2A 

14 

98D0 

C4 

B7 

19 

21 

Cl 

24 

34 

98E0 

24 

36 

01 

23 

7E 

3D 

C2 

73  23  C9  3A  77  20  A6  FA  OA 
11  E6  3F  CD  2A  01  IE  10  C2 
00  7B  E6  10  BA  57  5D  C9  7E 
23  56  C9  3A  77  20  E6  08  C2 
2A  5E  20  7C  85  EB  C8  IB  E8 

23  56  23  22  5C  20  C9  3A  77 
20  EB  22  5E  20  C9  08  OF  88 
B8  BF  OB  OF  80  BF  86  83  87 
87  OA  84  8C  87  09  86  33  87 
87  OA  84  8C  87  09  00  00  00 
00  00  00  00  00  00  00  00  00 
7C  06  EB  CA  9B  16  3D  CA  AO 
AF  16  37  C9  7D  32  20  29  C9 
20  29  73  23  22  20  29  C9  3A 
32  30  29  C3  31  29  00  00  00 
C3  OB  17  21  44  20  DF  7E  C9 
00  DO  CD  02  17  7C  FE  D4  CA 
CO  7D  32  48  20  7C  E6  03  21 
97  32  4A  20  32  46  20  32  47 
22  21  12  11  D5  21  4A  20  34 
C9  CD  93  17  FE  00  C3  FE  01 
17  CD  A8  17  D2  55  17  CD  C8 
C9  CD  AB  17  3E  00  D2  82  17 
3E  03  CD  82  17  3A  4A  20  E6 
C3  5C  17  3E  01  CD  82  17  3A 
03  II  45  20  5E  CD  E3  00  77 

20  CD  7E  17  3E  20  23  A3  C8 
9F  17  E6  30  65  CD  9F  17  32 
9F  17  E6  03  C9  3A  45  20  5F 
OF  OF  OF  C9  CD  9C  17  21  49 
E6  04  C8  70  E6  88  EE  88  CO 
C9  3A  44  20  E6  11  FE  11  37 
46  20  3A  4h  20  OF  7C  D8  7D 
C3  31  18  C3  FD  17  C3  A2  18 

21  C3  24  DF  7E  C9  3A  E2  24 
11  2D  IB  OE  11  D7  11  2F  IB 
32  D3  24  C9  7C  FE  62  CA  7F 
2F  18  34  7E  FE  22  DO  DF  73 
Cl  24  OA  E6  03  CA  6F  18  D6 
93  CO  02  OE  10  CD  E2  1A  2A 

24  35  36  03  CA  60  18  36  01 
21  E4  24  35  FO  36  00  C9  3A 
FC  1A  BB  CO  3E  01  02  C9  3A 
10  CD  DC  1A  3E  03  CA  92  18 
6E  62  E5  CD  63  01  El  24  C3 
21  10  25  22  EE  24  3E  04  CD 
07  CD  DA  18  01  04  09  CD  DA 
29  26  5C  F7  OE  01  CD  DC  1A 
C3  A5  1A  CD  DC  1A  C6  21  E2 
E4  18  CD  E2  1A  32  15  29  78 


PA6E  OB 


327 


UCB  SPACE  SCIENCES  LAB  12-6-BB  PAGE  09 
CRRES  FLIGHT  SOFTWARE  V2.1 

9BF0:  CD  FC  1A  CD  ID  IB  22  E9  24  CD  02  IB  79  3C  DF  EB 
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99F0:  EB  19  C9  7B  CD  OE  IB  CB  3A  12  29  DF  EB  7B  3D  CD 
9A00:  OE  IB  CB  CD  8B  00  19  7C  B7  FO  7B  CD  OE  IB  EB  7B 
9A10:  3D  CD  OE  IB  19  CD  BB  00  EB  7B  3C  CD  OE  IB  C8  19 
9A20:  EB  78  D6  02  CD  OE  IB  CB  19  7C  B7  7B  F2  30  1A  3D 
9A30:  4F  3C  CD  OE  IB  EB  79  3D  CD  OE  IB  19  10  EB  79  CD 
9A40:  22  IB  73  23  72  3E  OB  CD  FC  1A  34  C9  11  FF  7F  4F 
9A50:  3E  FF  32  13  29  3E  7E  91  47  D5  CD  74  1A  D1  70  93 
9A60:  7C  9A  D2  6A  1A  EB  78  32  13  29  05  7B  B9  D2  59  1A 
9A70:  3A  13  29  C9  7B  3C  CD  B7  1A  DB  E5  7B  91  CD  B7  1A 
9AB0:  D1  DB  CD  BB  00  19  C9  11  00  00  C5  F5  CD  OE  IB  CA 
9A90:  9E  1A  19  EB  FI  3C  OD  C2  BB  1A  EB  Cl  B7  C9  FI  Cl 
9AA0:  21  FF  3F  37  C9  OE  40  CD  DC  1A  CB  CD  FO  1A  EB  21 
9AB0:  F2  24  OE  OF  CD  DO  1A  21  EO  OE  3A  El  24  DF  22  FO 
9AC0:  24  2A  EE  24  11  10  DB  19  10  EB  21  FO  24  C3  CF  13 
9AD0:  1A  13  77  23  36  00  23  OD  C2  DO  1A  C9  CD  FO  1A  C3 
9AE0:  E5  1A  CD  02  IB  CD  D2  13  OF  79  D2  EE  1A  B7  A6  C9 
9AF0:  2A  El  24  2D  21  C3  24  CB  21  D2  24  C9  CD  FO  1A  DF 
9B00:  7E  C9  2A  El  24  2D  21  3E  IB  CB  21  46  IB  C9  CD  22 
9B10:  IB  CD  ID  IB  7C  FE  07  CB  E6  OF  FE  OB  C9  7E  23  66 
9B20:  6F  C9  2A  10  29  B7  B7  D2  2B  IB  24  DF  C9  00  OB  CF 
9B30:  5B  00  FO  FF  05  OB  02  B1  02  B1  00  00  00  00  16  9F 
9B40:  01  06  FC  01  OB  04  34  IF  03  03  OC  01  OB  04  00  00 
9B50:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
9B60:  00  00  00  00  C3  FD  IB  21  AO  24  DF  7E  C9  31  FF  2F 
9B70:  21  00  20  01  00  OF  CF  05  C2  76  IB  CD  9A  00  CD  03 
9BB0:  00  CD  E4  17  CD  EB  11  11  40  1C  CD  2A  1C  2A  AB  24 
9B90:  22  AC  24  2A  C7  IB  22  BO  24  3A  BO  24  FE  AA  C2  A7 
9BA0:  IB  CD  B1  24  C3  B5  IB  3E  21  32  AO  24  2A  C5  IB  22 
9BB0:  AE  24  CD  AE  24  CD  FI  11  CD  ED  17  CD  OA  1C  97  32 
9BC0:  B4  24  C3  99  IB  76  C9  55  C9  7C  OF  11  B2  1C  D2  2A 
9BD0:  1C  3A  ID  20  BD  C2  D1  IB  C9  3E  9B  32  A2  24  32  A1 
9BE0:  24  CD  BO  00  2B  22  AB  24  3A  A1  24  OF  OF  OF  OF  CD 
9BF0:  BO  00  2B  22  AA  24  21  01  00  22  AC  24  C9  21  A2  24 
9C00:  BE  CO  2A  AC  24  2B  22  AC  24  C9  2A  AC  24  7C  B5  CO 


328 


LtCB  SPACE  SCIENCES  LA8  12-6-88  PAGE  10 
CRRES  FLIGHT  SOFTWARE  V2.1 

9C10:  CD  D2  13  E6  01  2A  A8  24  11  2E  1C  C2  24  1C  2A  AA 
9C20:  24  11  38  1C  7C  B5  C8  22  AC  24  3E  01  E7  C9  02  50 
9CI0:  00  5C  00  68  01  62  FF  FF  03  50  01  68  03  5C  FF  FF 
9C40:  01  43  FO  01  FO  02  FO  03  FO  04  FF  09  FF  OA  FF  11 
9C50:  FF  12  FF  21  FF  22  FF  23  FF  24  FF  25  FF  26  FF  27 
9C60:  FF  19  FF  1A  OA  31  OB  30  OD  30  OE  30  11  30  14  31 
9C70:  15  31  00  30  01  2A  01  28  00  48  00  68  77  38  FF  C8 
9C80:  FF  FF  00  60  03  61  CO  58  02  5C  03  68  01  29  00  80 
5C90:  11  31  01  30  05  B1  00  91  9C  03  64  04  06  31  20  91 
9CA0:  64  03  9C  04  06  31  40  91  03  5C  00  B4  80  91  00  85 
9CB0:  00  5C  00  68  00  60  00  61  01  62  03  62  11  30  FF  FF 
9CC0:  4D  41  49  4E  32  2E  31  2D  48  41  52  56  45  59  00  00 
9CD0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
9CE0:  21  CO  FF  22  ID  20  21  FF  FF  22  IF  20  CD  C4  16  CD 
9CF0:  80  16  CD  50  OD  CD  98  OE  CD  CO  13  CD  08  10  CD  30 
9D00:  13  21  00  00  22  3C  20  CD  F8  ID  3E  OD  CD  CF  00  FB 
9D10:  76  3E  18  CD  CF  00  97  32  21  20  32  22  20  32  2D  20 
9D20:  D3  00  D3  01  21  53  07  CD  A3  ID  3E  50  32  32  20  C3 
9D30:  28  03  3A  ID  20  F6  IF  32  ID  20  3E  FC  32  1C  20  FI 
9D40:  F8  C9  E5  D5  C5  FB  3A  1C  20  C6  02  32  1C  20  B7  IF 
9D50:  CD  59  ID  Cl  D1  El  FI  FB  C9  OF  DA  43  IF  6F  26  IF 
9060:  6E  E9  21  1C  20  3E  04  CD  80  ID  CD  B5  03  21  84  24 
9D70:  34  CA  24  00  3A  ID  20  CD  53  OD  3A  ID  20  C3  C3  13 
9D80:  23  34  CO  3D  C2  80  ID  C9  2A  2E  20  23  22  2E  20  2A 
9D90:  30  20  11  00  FF  19  D4  84  ID  22  30  20  CD  D9  00  C8 
9DA0:  2A  2E  20  22  25  20  2B  22  30  20  21  00  00  22  23  20 
9DB0:  22  2E  20  C9  E8  2A  23  20  23  22  23  20  2A  25  20  19 
9DC0:  C9  FE  01  CA  15  IE  FE  02  CA  OA  IE  FE  03  CA  F8  ID 
9DD0;  FE  04  CO  E5  CD  El  ID  El  CO  22  3A  20  E8  22  3C  20 
9DE0:  C9  2A  3C  20  7C  B5  C9  CD  El  ID  C8  28  22  3C  20  2A 
9DF0:  3A  20  7E  23  22  3A  20  C9  7C  85  3E  AA  C2  03  IE  97 
9E00:  21  4D  IF  22  36  20  32  38  20  C9  21  21  20  3A  35  20 
9E10:  96  C8  3E  01  C9  1A  6F  13  1A  67  13  3C  C8  3A  2D  20 
9E20:  FE  AA  CA  ID  IE  D5  CD  61  IE  D1  C3  15  IE  3E  AA  32 
9E30:  2D  20  3E  09  CD  CF  00  FI  F8  C9  3A  2D  20  FE  AA  CO 
9E40:  CD  CD  00  E6  10  CO  97  32  2D  20  CD  B1  00  CD  93  00 
9E50:  3E  08  CD  CF  00  CD  61  IE  21  21  20  D2  5F  IE  23  34 
9E60:  C9  E8  7A  E6  F8  OF  OF  21  40  00  DF  7E  23  66  6F  84 
9E70:  37  C8  E5  E8  7D  87  C9  32  35  20  21  00  00  22  21  20 
9E80:  C9  FE  10  CA  95  IE  2A  33  20  29  29  29  29  E6  OF  85 
9E90:  6F  22  33  20  C9  2A  33  20  97  32  33  20  32  34  20  C3 
9EA0:  61  IE  21  32  20  35  CC  2A  ID  CD  C7  16  3A  ID  20  E6 
9E80:  IF  CO  3A  ID  20  07  07  07  E6  07  FE  06  DO  F5  C6  22 
9EC0:  CD  E6  00  29  29  29  29  5C  FI  21  27  20  DF  73  C9  32 
9ED0:  CC  13  08  67  18  15  74  02  OC  FO  17  04  36  13  04  11 
9EE0:  10  05  CA  16  01  9E  OE  64  F3  IF  7D  FE  07  CA  00  00 
9EF0:  37  C9  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
9F00:  40  4E  5E  56  86  86  8F  AA  8C  4E  78  56  86  86  8F  AA 
9F10:  89  80  78  86  86  86  8F  AA  8C  4E  78  56  86  86  8F  AA 
9F20:  BC  4E  4D  4D  86  86  8F  AA  8C  4E  4D  4D  86  86  8F  AA 
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9F30:  89  BO  4D  8«  86  86  8F  AA  8C  4E  4B  4D  86  86  BF  AA 
9F40:  C3  62  IB  3A  38  20  FE  AA  CC  2A  36  20  E9  C9  3E  01 
9F30:  CD  C9  13  C3  D5  00  3E  01  CD  5F  CD  C3  D5  00  97  CD 
9F60:  C9  13  E5  3A  ID  20  OF  DA  71  IF  CD  BF  IF  6F  C3  81 
9F70:  IF  CD  E7  ID  6F  C3  81  IF  9’  CD  C9  13  E5  97  CD  5F 
9P3C:  OD  Cl  63  C3  D5  00  CC  Co  13  C3  56  OD  C3  9B  OE  CD 
9F90:  88  ID  3A  23  20  21  39  20  BE  77  CG  CD  EB  11  3A  23 
9FA0:  20  CD  64  IB  3A  23  20  C3  E7  17  CD  33  13  C3  3A  IE 
9FB0:  CD  «E  IF  C3  59  OD  CD  56  IF  C3  5C  OD  C3  A2  IE  21 
RFC*:  ID  20  7E  E6  IF  CC  D3  IF  66  3A  IE  20  29  17  29  17 
9FD0:  29  17  C9  7E  E6  EO  OF  OF  OF  OF  2F  86  OF  E6  7F  21 
9FE0:  CF  IE  BE  DA  ED  IF  9b  23  23  23  C3  E2  IF  23  5E  23 
9FF0:  56  EB  E9  21  IE  20  DF  7E  C9  00  00  00  00  00  00  00 
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0000  0001  t 

0000  0002  *  CRRES  FLIGHT  SOFTWARE — BURST  EXECUTIVE  SECTION 


0000 

0003 

1  WRITTEN  BY 

PETER  R  HARVEY 

0000 

0004 

1  FILE 

BEXEC. 

A 

0000 

0005 

1 

0000 

0006 

1  8085 

SPECIFIC  INFORMATION 

0000 

0007 

1 

0000 

0008 

PSW 

ECU 

6 

0000 

0009 

SP 

EQU 

6 

0000 

00 1C 

* 

0000 

0011 

1  ROM 

ALLOCATIONS  OF  THE  4K  AREA 

0000 

0012 

» 

0000 

0013 

ORG 

40H 

0040 

0014 

BIO 

DS 

340H 

0380 

0015 

BEXEC 

cs 

OCOH 

0440 

0016 

BLO 

OS 

100H 

0540 

0017 

BSMF 

OS 

380H 

OSCO 

0018 

BFHT 

DS 

18  OH 

0A40 

0019 

8CMP 

DS 

100H 

0B40 

0020 

OS 

0C00H-4 

OCOO 

0021 

FFP 

OS 

300H 

OF  00 

0022 

« 

OFOO 

0023 

1  RAH 

ALLOCATIONS, 'EQUATES  OF  THE  2K  AREA 

OFOO 

0024 

1 

OFOO 

0025 

RAH1 

EBU 

1000H  START  ADDRESS 

OFOO 

0026 

RAMS  1 2 

E  EBU 

2048  SIZE  IN  BYTES 

OFOO 

0027 

HEH 

EQU 

8000H  BURST  HEHORY  BANK 

OFOO 

0028 

1 

OFOO 

0029 

ORG 

RAH1 

1000 

0030 

B10RAH 

OS 

20H 

1020 

0031 

BEXRAH 

OS 

10H 

1030 

0032 

BFMTRAM  OS 

60H 

1090 

0033 

BCHPRAH  DS 

30H 

10C0 

0034 

8SMFRAH  OS 

140H 

1200 

0035 

BLCRAH 

ECU 

* 

1200 

0036 

STACK. 

EQU 

kh^'+RAHSlZE 

1200 

0037 

I 

1200 

0038 

1  0EF1NE  THESE  GLOBALLY 

1200 

0039 

1 

1200 

0040 

COM 

BIO 

1200 

0041 

COM 

BEXEC 

1200 

0042 

COH 

BLD 

1200 

0043 

COM 

BSHP 

1200 

0044 

COH 

BFHT 

1200 

0045 

COH 

BCHP 

1200 

0046 

COH 

FFP 

1200 

0047 

COH 

B10RAH 

1200 

0048 

COH 

BEXRAH 

1200 

0049 

COH 

BLORAH 
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1200 

0050 

CON 

BSHPRAH 

1200 

0051 

con 

BFnTRAn 

1200 

0052 

con 

BcnPRAn 

1200 

0053 

1 

1200 

0054 

t  RESET  VECTOR 

1200 

0055 

1 

1200 

0056 

ORG 

0 

0000 

C3 

80 

03 

0057 

jnp 

BEXEC 

0003 

0058 

1 

0003 

0059 

1  BURST  PROCESSOR  EXECUTIVE  CONTROL 

0003 

0060 

1 

0003 

0061 

ORG 

BEXEC 

0380 

31 

00 

18 

0062 

LXI 

SP, STACK  INIT  STACK  POINTER 

0383 

21 

11 

11 

0063 

LX1 

H,  HUH 

0386 

CD 

FA 

03 

0064 

CALL 

HARK 

0389 

CD 

40 

00 

0065 

CALL 

BIOINIT  INITIALIZE  THE  DRIVERS 

038C 

CD 

67 

00 

0066 

CALL 

D5HS 

038F 

CD 

40 

04 

0067 

CALL 

8LBINIT  INIT  THE  USER  PR06RAH  LDR 

0392 

CD 

40 

05 

0068 

CALL 

BSHPINIT  INIT  THE  SAHPLIN6  ROUTINES 

0395 

97 

0069 

SUB 

A 

0396 

32 

20 

10 

0070 

STA 

CHDERR 

0399 

21 

00 

00 

0071 

LXI 

H.O 

039C 

CD 

FA 

03 

0072 

CALL 

HARK 

039F 

0073 

1 

039F 

CD 

4C 

00 

0074 

BURST 

CALL 

RECEIVE  RECEIVE  A  COHHAND 

03A2 

C2 

A8 

03 

0075 

JNZ 

BEX  IF  READY,  EXECUTE 

03A5 

CD 

CO 

03 

0076 

CALL 

WAIT  POWER  DOHN-NAIT 

03A8 

C3 

9F 

03 

0077 

JHP 

BURST 

03AB 

0078 

1 

03AB 

22 

21 

10 

0079 

BEX 

SHLD 

CNDCPY 

03AE 

CD 

FA 

03 

0080 

CALL 

HARK 

0381 

CD 

43 

05 

0081 

CALL 

8SHPCHD  IF  A  SAHPLE  CHD 

0384 

D2 

9F 

03 

0082 

JNC 

BURST  OK. 

0387 

CD 

43 

04 

0083 

CALL 

8LDCHD  IF  A  USER  PR06RAH  LOAD 

03BA 

DC 

CB 

03 

0084 

CC 

ERROR  OK  ELSE  ERROR 

03BD 

C3 

9F 

03 

0085 

JHP 

BURST 

03C0 

0086 

1 

03C0 

2A 

C9 

03 

0087 

WAIT 

LHLD 

PWRDN 

03C3 

22 

23 

10 

0088 

SHLD 

PR06 

03C6 

C3 

23 

10 

0089 

JHP 

PROG 

03C9 

76 

0090 

PHRDN 

HLT 

03CA 

C9 

0091 

RET 

03CB 

0092 

1 

03CB 

0093 

1  DIAGNOSTIC  OUTPUT  ROUTINES 

03CB 

0094 

1 

03CB 

21 

20 

10 

0095 

ERROR 

LXI 

H, CHDERR  UPDATE  COHHAND  ERROR 

03CE 

34 

0096 

INR 

H 

03CF 

C9 

0097 

RET 

03D0 

0098 

t 

03D0 

11 

00 

10 

0099 

MEMTEST  LX  I 

D.RAHl  START  AT  RAH  START 
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03D3  OE  08 

0100 

HVI 

C,8 

0305  2E  00 

0101 

MV  I 

L.O 

0307  CD  Ea  03 

0102  HTN 

CALL 

HTPAS 

03DA  29 

0103 

DAD 

H 

03DB  CA  Dc  03 

0104 

JZ 

HTOK 

03DE  :c 

0105 

I  NR 

L 

03DF  14 

0106  HTOK 

INR 

0 

03E0  7A 

0107 

MOV 

A.D 

03E1  00 

0108 

OCR 

C 

03E2  C2  07  03 

0109 

JNZ 

HTN 

03E5  C9 

0110 

RET 

03E6 

0111  t 

03E6  IE  00 

0112  HTPAS 

HVI 

E,0 

03E8  CD  FI  03 

0113  HTP1 

CALL 

HTLOC 

03EB  CO 

0114 

RNZ 

03EC  1C 

0115 

INR 

E 

03ED  C2  E8  03 

0116 

JNZ 

HTP1 

03F0  C9 

0117 

RET 

03F1 

0118  t 

03F1  1A 

0119  HTLOC 

LDAX 

0 

SAVE  OLD  VALUE 

03F2  47 

0120 

MOV 

B,A 

03F3  2F 

0121 

CMA 

« 

FLIP  ALL  BITS 

03F4  12 

0122 

STAX 

0 

03F5  1A 

0123 

LDAX 

0 

03F6  2F 

0124 

CHA 

03F7  12 

0125 

STAX 

0 

03F8  B8 

0126 

CMP 

B 

03F9  C9 

0127 

RET 

03FA 

0128  t 

03FA  70 

0129  HARK 

MOV 

A.L 

OUTPUT  TO  DIAGNOSTIC  LEDS 

03FB  03  00 

0130 

OUT 

0 

03FD  7C 

0131 

MOV 

A,  H 

03FE  03  01 

0132 

OUT 

1 

0400  C9 

0133 

RET 

0401 

0134  t 

0401  42  55  52  53 

0135 

ASC 

’BURST  2-1-85  PR  HARVEY’ 

54  20  32  20 

31  20  38  35 

20  50  52  20 

48  41  52  56 

45  59 

0417  00  V 

0136 

OB 

256 

END  OF  BEXEC 

0418 

0137  » 

0418 

0138  1  VARIABLES 

0418 

0139  t 

0418 

0140 

ORG 

BEXRAH 

1020 

0141  CHDERR  OS 

1 

ICOHHAND  ERRORS  FOUND 

1021 

0142  CHDCPV  OS 

2 

1023 

0143  PROG 

OS 

2 

POWER  DOWN  PROGRAH 

1025 

0144  1 
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1025 

0145  t  EXTERNAL  MODULE  DEFINITIONS 

1025 

0146  t 

1025 

0147  ORG 

BIO 

0040 

0148  BIOINIT  DS 

3 

0043 

0149  6ETHASK  DS 

3 

0046 

0150  SETMASK  DS 

3 

0049 

0151  RECSTAT  DS 

004C 

0152  RECEIVE  DS 

3 

004F 

0153  SEND  DS 

3 

0052 

0154  ABPNR  DS 

3 

0055 

0155  SAMPLE  DS 

3 

0058 

0156  HEHPNR  DS 

3 

005B 

0157  HARSET  DS 

3 

005E 

0158  BANKSET  DS 

3 

0061 

0159  MODESET  DS 

3 

0064 

0160  SECOND  DS 

3 

0067 

0161  D5HS  DS 

3 

006A 

0162  READ  DS 

3 

006D 

0163  WRITE  DS 

3 

0070 

0164  t 

0070 

0165  ORG 

BLD 

0440 

0166  BLDINIT  DS 

3 

0443 

0167  BLDCHD  DS 

0446 

0168  t 

0446 

0169  ORG 

BSMP 

0540 

0170  BSHPINIT  DS 

3 

0543 

0171  BSNPCHD  DS 

3 
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0000 

0001 

) 

0000 

0002 

1  CRRES  FLIGHT  SOFTWARE— BURST  I/O  DRIVER  SECTION 

0000 

0003 

1  WRITTEN  BY  FETER  P  HARVEY 

0000 

0004 

< 

0000 

0005 

1  FILE  610. A 

-  COMPATIBLE  WITH  BREADBOARD,  PROTOTYPE  AND 

0090 

0006 

» 

►LIGHT  HAFDWARE  SYSTEMS. 

0000 

9007 

1 

0909 

0008 

1  SYSTEM  OPTIONS 

oooo 

0009 

1 

0000 

0010 

COHEN  ECU 

16  SERIAL  COMMUNICATION  BIT  LENGTH 

0000 

0011 

1 

0000 

0012 

1  SYSTEM  DESCRIPTION 

0000 

0013 

1 

0000 

COM 

R0M1  EQU 

0  4)  ROM 

0000 

9015 

FAM1  EfiU 

1000K  2K  RAM 

0000 

9016 

1 

oooo 

0017 

1  A/D  INTERFACING  FOR  HIGH  SPEED  DIGITIZATIONS. 

0000 

9016 

1  TO  MU)  ADDRESS  ))).  READ  ADC+(m»2) 

oooo 

0019 

1 

oooo 

0020 

ADC  ESU 

3000H  A/D  DATA 

oooo 

0021 

ADCTL  EQU 

300 I H  A/D  CONTROL 

0000 

0922 

MU) AD  ESU 

OFEH  MUX  BITS 

oooo 

0023 

HIGH  ESU 

10H  HIGH  GAIN  OVERRIDE 

oooo 

0024 

LOW  ESU 

2 OH  LOW  GAIN  OVERRIDE 

oooo 

0925 

BV34AC  EDU 

OSH  STUB  STY 

oooo 

0026 

GND  EfiU 

L0W+SV34ACI2  SET  DC  STY  ON  MU; 

oooo 

9927 

l 

oooo 

9028 

KGAINS  EQU 

23H  KELLEY  AUTO  GAIN  INPUT  BITS 

oooo 

0029 

KLYOTY  EfiU 

13  KELLEY  AUTO  GAIN  GTY  NUMBER 

oooo 

9030 

1 

oooo 

9031 

►LIGHT  EC'U 

1  FLIGHT  BOARD  ==  YES 

oooo 

9932 

1 

oooo 

0933 

1  BURST  MEMORY  ADDRESSING 

oooo 

093  s 

1 

oooo 

0035 

MEM  ESU 

3090H  BURST  MEMORY  BANK  --WRITE  ADDRESS 

oooo 

0036 

MEMRD  ESU 

MEM+7000H  BURST  MEMORY  BANK  -  READ  ADDRESS 

oooo 

0037 

HIMAR  EQU 

70H  HIGH  MEM  ADDRESS  BITS 

oooo 

0938 

AUTOWRITE  EQU  SOH  AUTCWRITE  TO  MEMORY 

oooo 

0939 

LOADADP.  ECU 

4 OH  LOAD  MAR 

oooo 

0040 

UPPER6  EDU 

3FH  UPPER  6  MAP  BITS 

0090 

0041 

RELAYS  EfiU 

20H  RELAY  CONTROL  BITS 

oooo 

0042 

ENCAD  EQU 

63H  END  ADDP  FOR  WRAP-AROUND 

oooo 

0043 

RLYCTL  EGO 

ENCAD  RELAY  CONTROL  TOO 

oooo 

9044 

SFRLY  EfiU 

2 OH  SET/RESET  RELAY 

0900 

0945 

LOBAR  EfiU 

OCFFFH  LOW  12  BITS  OF  MAR 

0990 

004c 

t 

0009 

0047 

1  BREADBOARD 

I/O  PORTS  WHICH  ARE  DIFFERENT  FROM  ABOVE 

oooo 

0048 

I 

0990 

0049 

AEI55  ECU 

20H  PROGRAMMABLE  I/O  CONTROL  FORTS 

RAGE  01 
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0000 

0050  B8155 

E6U 

60H 

0000 

0051  BBHIHAR  ECU 

B8155+1  BREADBOARD  HIGH  HAR  REGISTER 

0000 

0052  BBRELAYS  EQU 

88155+2  BREADBOARD  RELAY 

CONTROLS 

0000 

0053  1 

0000 

0054  PSW 

EQU 

6  8085  INFORHAT ION 

0000 

0055  SP 

EQU 

6 

0000 

0056  SHU 

ECU 

10H  STORE  HL  AT  IDE! 

0000 

0057  SLUE 

EQU 

13H  SHIFT  LEFT  [DEI 

0000 

0058  RIM 

EQU 

2 OH  READ  INT  MASK 

0000 

0059  SIN 

ECU 

30H  SET  INT  HASK 

0000 

0060  SDO 

EQU 

60H  SERIAL  DATA  OUTPUT 

0000 

0061  5D0EN 

EQU 

40H  SERIAL  ENABLE 

0000 

0062  RES75 

EQU 

10H  RESET  7.5  FLOP 

0000 

0063  NSE 

EQU 

8  INTERRUPT  HASK  SET 

ENABLE 

ocoo 

0064  DIS75 

EQU 

4  DISABLES  FOR  THE  INTERRUPTS 

0000 

0065  DIS65 

EQU 

2 

0000 

0066  DIS55 

EQU 

1 

0000 

0067  « 

0000 

0068  AOUT 

EQU 

1  8155  [SA3001I  PRQGRAHHINS 

0000 

0069  EQUT 

EQU 

2 

0000 

0070  COUT 

EQU 

12 

0000 

0071  NOTH 

EQU 

040H  TIHER  OFF 

0000 

0072  TH 

ECU 

OCOH  TIHER  ON 

0000 

0073  t 

0000 

0074  1  INTERRUPTS 

0000 

0075  1 

0000 

0076 

QRG 

618+4  2KH1  CLOCK 

0034  E5 

0077  INT65 

PUSH 

H 

0035  2A  04  10 

0078 

LHLD 

TIN1VECT 

0036  E9 

0079 

PCHL 

. 

0039 

0080  1 

0039 

0081 

OP.G 

718+4  INT  7.5 

003C  C3  C5  00 

0082 

JHP 

RST75 

003F 

0083  1 

003F 

0084  1  EIO  ENTRY  POINTS 

003F 

0065  1 

003F 

0086 

QRG 

BIO 

0040  C3  7C  00 

0087 

JHP 

8IQINIT 

0043  C3  AF  00 

0068 

JHP 

GETHASK 

0046  C3  AA  00 

0089 

JHP 

SETHASK 

0049  C3  FE  00 

0090 

JHP 

RECSTAT 

004C  C3  04  01 

0091 

JHP 

RECEIVE 

004F  C3  OE  01 

0092 

JHP 

SEND 

0052 

0093  1 

0052  C3  68  01 

0094 

JHP 

ADPWR 

0055  C3  3A  01 

0095 

JHP 

SAHPLE 

0058 

0096  1 

0058  C3  2A  02 

0097 

JHP 

HEHPWR 

005B  C3  7C  01 

0098 

JHP 

HARSET 

005E  C3  AF  01 

0099 

JHP 

BANKSET 
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006!  C3  CF  01 

0100 

JHP 

HODESET 

00&4 

0101  1 

0064  C3  67  02 

0102 

JHP 

SECOND 

0067  C3  71  02 

0103 

JHP 

D5HS 

006 A 

0104  1 

0)6A  C3  DC  01 

0105 

JHP 

READ 

006D  C3  E2  01 

0106 

JMF 

WRITE 

0070  C3  01  02 

0107 

JHP 

REWIND 

0073  C3  17  02 

0108 

JNF 

HARGET 

007c  C3  bl  00 

0109 

JHP 

SETVECT 

0079  C3  Cl  00 

0110 

JHP 

SETIO 

007C 

0111  1 

007  C 

0112  1 

INITIALIZE  THE  BURST  HARDWARE 

007C 

0113  1 

007C  3E  4C 

0114  BIQINIT  HVI 

A, NCTM+CQUT  CONFIGURE  I/O  IN 

007E  D3  20 

0115 

OUT 

A3155  CASE  THIS  IS  THE  BREADBOARD 

0080  3E  4F 

0116 

HOI 

A.NOTH+AOUT+BOUT+COUT 

0082  D3  60 

0117 

OUT 

B8155 

0084 

0118  I 

0084  CD  43  02 

0119 

CALL 

RLY1N1T  1N1T  RELAY  CONTROL 

0087  3E  50 

0120 

HVI 

A, SC0EN+RES75  SD0=0 

0039  CD  AA  00 

0121 

CALL 

SETHASK  AND  7.5  INITIALIZED 

008C  97 

0122 

SUB 

A  COHHAND  STATUS=NOT  READY 

008 D  32  03  10 

0123 

STA 

CHDSTAT 

0090  32  OS  10 

0124 

STA 

IOHODE  CHD-PENDING  HODE  OFF 

0093  21  00  00 

0125 

LX  I 

H,0 

0096  CD  Bl  00 

0126 

CALL 

SETVECT  TURN  OFF  INTERUPTS 

0o°9 

0127  I 

0099  11  34  01 

0128 

LX  I 

D.LPW1  PUT  LOW  FOWER  WAIT 

00 9 C  21  OE  10 

0129 

LXI 

H.LPWAIT  INTO  HEHORY 

009 F  OE  06 

0130 

HVI 

C.LPWLEN 

00A1 

0131  » 

00A1  1A 

0132  COPY  IDAY 

D 

OOA2  77 

0133 

MOV 

H,  A 

00A3  13 

0134 

INK 

D 

00 A 4  23 

0135 

1NX 

H 

00A5  OD 

0136 

DCR 

C 

00 A 6  C2  A1  00 

0137 

JNZ 

COPY 

00A9  C9 

0138 

RET 

OOfifi 

0139  1 

OOAA 

0140  1 

SET/READ  PROCESSOR  MASK 

C'OAA 

0141  1 

OOAA  32  00  10 

0142  SETHASK  STA 

SDCOPY 

OOAD  30 

0143 

DB 

SIH 

OOAE  C9 

0144 

RET 

, 

OOAF 

0145  1 

OOAF  20 

0146  GETHASK  DB 

R1H 

OOBO  C9 

0147 

RET 

• 

GOBI 

0148  1 

00B1  F3 

0149  SETVECT  DI 

DISABLE  INTERRUPTS 
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00B2 

22 

04 

10 

0150 

SHLD 

TIM1VECT  SET  THE  VECTOR 

00B5 

7C 

0151 

MOV 

A.H  IF  HL=0.  DISABLE  1NTS 

0006 

85 

0152 

ORA 

L 

00B7 

3E 

OB 

0153 

MVI 

A, MSE+D1 S55+D1 S65 

00B9 

CA 

BE 

00 

0154 

JZ 

SV1 

005C 

3E 

09 

0155 

MVI 

A.MSE+D1S55 

OOBE 

30 

0156  SV1 

OB 

SIM 

00  BF 

FB 

0157 

El 

REENABLE  INTERRUPTS 

OOCO 

C9 

0158 

RET 

, 

00C1 

0159  1 

00C1 

32 

08 

10 

0160  SET10 

STA 

10M0DE  SET  COMMAND-PENDING  MODE  ON/OFP 

00C4 

C9 

0161 

RET 

. 

00C5 

0162  I 

00C5 

0163  I  SERIAL  REQUEST  FROM  THE  MAIN  PROCESSOR 

00C5 

0164  » 

00C5 

F5 

0165  RST75 

PUSH 

PSN  SAVE  REGISTERS  USED 

00C6 

C5 

0166 

PUSH 

B 

00C7 

05 

0167 

PUSH 

D 

00C8 

OE 

10 

0168 

MVI 

C.COMLEN  NUMBER  OF  BITS  TO  SHIFT 

OOCA 

3E 

CO 

0169 

MVI 

A . SDO+SDOEN  SD0<-1  (READY) 

OOCC 

30 

0170 

DB 

SIM 

OOCD 

20 

0171  HTTM 

OB 

RIM  WAIT  TILL  S1D=0  (START) 

OOCE 

0  7 

0172 

RLC 

OOCF 

DA 

CD 

00 

0173 

JC 

HTTM 

00  D2 

00 

0174 

NOP 

GIVE  TM  PROC  SOME  TIME 

0003 

0175  1 

0003 

3E 

00 

0176  SHI 

MVI 

h.O  NOP  OF  7  CYCLES 

0005 

20 

0177 

DB 

RIM  GET  A  BIT 

0006 

07 

0178 

RLC 

00D7 

18 

0179 

OB 

SLDE  SHIFT  INTO  DE 

00  D  8 

OD 

0180 

OCR 

C  IB1 TS — 

00D9 

C2 

03 

00 

0181 

JNZ 

SHI 

OODC 

0182  1 

OOOC 

EB 

0183 

XCHG 

CMDREG=CDE] 

OODO 

22 

01 

10 

0184 

SHLD 

CHORES 

OOEO 

EB 

0185 

XCHG 

00E1 

3E 

01 

0186 

MVI 

A, 1  CMDSTAT=READY 

00E3 

32 

03 

10 

0187 

STA 

CMD3TAT 

00E6 

0188  t 

00E6 

3A 

00 

10 

0189 

LDA 

SDCOPY  RESET  SDO  TO  STATE  PRIOR 

00E9 

E6 

80 

0190 

ANI 

SDO  TO  INTERRUPT  AND  RESET  THE 

OOEB 

F6 

50 

01ql 

0R1 

SD0EN+RES75  7.5  INTERRUPT  FLOP  TOO. 

OOED 

30 

0192 

DB 

SIM 

OOEE 

01 

0193 

POP 

D  RESTORE  REGISTERS 

OOEF 

Cl 

0194 

POP 

B 

OOFO 

0195  1 

OOFO 

3A 

OS 

10 

0196 

LDA 

IOMODE  IN  CMD  PENDING  MODE,  SET  CARRY 

00F3 

OF 

0197 

RRC 

WHEN  RETURNING 

OOF4 

DA 

FA 

00 

0198 

JC 

CPMODE 

00F7 

FI 

0199 

POP 

PSN  NORMAL  MODE 
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OOF  8  FB 

0200 

El 

OOF?  C9 

0201 

RET 

OOF  A 

0202 

« 

OOF A  FI 

0203 

CPMDDE  POP 

PSW 

OOfB  37 

0204 

STC 

OOFC  TB 

0205 

El 

, 

OOFD  Ca 

0206 

RET 

, 

OOFE 

0207 

I 

00  FE 

0208 

1  RETURN  STATUS  OF  COMMUNICATIONS  WITH  TM  PROCESSOR 

OOFE 

0209 

1 

OOFE  21  03  10 

0210 

RECSTAT  LX I 

H.CMDSTAT  PETURN  ZERO  IF  NOT  READY 

0101  7E 

0211 

MOV 

A,M  AS  WELL  AS  THE  ADDRESS  OF  STAT 

0102  B7 

0212 

ORA 

A 

0103  C9 

0213 

PET 

0104 

0214 

» 

0104 

0215 

1  RECEIVE  DATA  FROM  THE  TELEMETRY  PROCESSOR 

0104 

0216 

1  ON  EXIT;  [ 

HL3=DATA  IF  NOT  ZERO,  ELSE  NOT  READY 

0104 

0217 

« 

0104  CD  FE  00 

0218 

RECEIVE  CALL 

RECSTAT  CHECK  FOP  STAT  =FEADY 

0107  CB 

0219 

RZ 

, 

0108  36  00 

0220 

MV  I 

M.O  STAT=NOT  READY 

010A  2A  |A'l  10 

0221 

LHLD 

CMDREG  PICK  UP  THE  COMMAND  REGISTER 

010D  C9 

0222 

RET 

, 

010E 

0223 

1 

010E 

0224 

I  SEND  CHLI  TO  THE  TELEMETRY  PROCESSOR 

01 OE 

0225 

1 

010E  E5 

0226 

SEND  PUSH 

H  SAVE  MESSAGE  OUT 

01  OF  C5 

0227 

PUSH 

B 

0110  OE  10 

0228 

MVT 

C.COMLEN  CEBITS  TO  SHIFT 

0112  3E  CO 

0229 

MVI 

fl, SDO+SDOEN  SD0=1  (REQUEST) 

3114  32  00  10 

0230 

STA 

SDCOPY 

0117  30 

0231 

D8 

SIM 

011B  F3 

0232 

DI 

IF  NO  INT,  NE'VE  GOT  THE  LINE. 

0119 

0233 

I 

0119  CD  OE  10 

0234 

CALL 

LPKAIT 

011C  3E  40 

0235 

MVI 

A, SDOEN  SD0=0  (START) 

01  IE  30 

0236 

DB 

SIM 

01  IF 

0237 

1 

01  IF  3E  80 

0238 

SENDBIT  MVI 

A,5D0EN»2 

0121  29 

0239 

DAD 

H 

0122  IF 

0240 

RAR 

0123  30 

0241 

DB 

SIM 

0124  OD 

0242 

DCR 

C 

0125  C2  IF  01 

0243 

JNZ 

SENDBIT 

0128 

0244 

t 

0128  Cl 

0245 

POP 

B 

0129  El 

0246 

POP 

H  RESTORE  HL  AND  DELAY 

012A  3E  40 

0247 

MVI 

A, SDOEN  SD0=0  (NO  MORE  REQUEST' 

012C  32  DO  10 

0248 

STA 

SDCCPY 

Q12F  F6  10 

0249 

ORI 

RES75  AND  RESET  7.5  INTERRUPT 
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0131  30 

0250 

DB 

SIM 

0132  FB 

0251 

El 

• 

0133  C9 

0252 

RET 

, 

0134 

0253  1 

0134 

0254  1  LOW  POWER  WAIT  ROUTINE 

0134 

0255  1 

(RUNS  IN  RAH  AT  LPWAIT) 

0134 

0256  1 

0134  20 

0257  LPWI  DB 

RIM 

0135  07 

0258 

RLC 

0136  D2  OE  10 

0259 

JNC 

LPWAIT 

0139  C9 

0260 

RET 

01 3A 

0261  LPWLEN  EQU 

t-LPWI 

013A 

0262  1 

013A 

0263  1 

SAMPLE  A  QTY  IN  THE  NORMAL  FASHION 

01 3A 

0264  $  ON  ENTRY: 

CA]=QTY  TO  SAMPLE 

01 3A 

0265  1  ON  EXIT  : 

[HL1=I3  BIT  SAMPLE  (6AIN  INCLUDED) 

013A 

0266  t 

013A  F5 

0267  SAMPLE  PUSH 

PSW  SAVE  THE  SAMPLE  1 

013B  B7 

0268 

ADD 

A  MOVE  INTO  THE  LOW  ADDRESS  BITS 

013C  E6  FE 

0269 

AN  I 

MUXAD 

01 3E  6F 

0270 

MOV 

L ,  ft 

013F  26  30 

0271 

MVI 

H,  ADC/256 

0141 

0272  1 

0141  3E  03 

0273 

MVI 

A. 3  CONFIGURE  A/D  FOR  AUTO  START  MODE 

0143  32  01  30 

0274 

STA 

ADCTL 

0146 

0275  1 

0146  7E 

0276 

MOV 

A.M  READ  THE  A/D  TO  SET  THE 

0147  CD  61  01 

0277 

CALL 

SMPDLA  GAIN  DECISION  AND  SAMPLE/HOLD 

014A 

0278  1 

0I4A  7E 

0279 

MOV 

ft,M  READ  THE  A/D  TO  CONVERT  THE 

0I4B  CD  61  01 

0280 

CALL 

SMPDLA  VALUE  HELD  BY  THE  SAMPLE/HOLD 

014E 

0281  1 

014E  5E 

0282 

MOV 

E.M  READ  THE  VALUE  FROM  THE  A/D  REGISTER 

0I4F  2C 

0283 

I  NR 

L 

0150  66 

0284 

MOV 

H,H 

0151  6B 

0285 

MOV 

L,E 

0152 

0286  1 

0152  FI 

0287 

POP 

PSW  RESTORE  THE  ORIGINAL  QTY  NUMBER 

0153  FE  OD 

0288 

CPI 

KLYQTY 

0155  CO 

0289 

RNZ 

. 

0156  29 

0290 

DAD 

H  IF  KELLEY.  USE  ONLY  MS  B  BITS 

0157  29 

0291 

DAD 

H 

0158  29 

0292 

DAD 

H 

0159  29 

0293 

DAD 

H 

01 5A  6C 

0294 

MOV 

L,H 

015B  DB  23 

0295 

IN 

KEAINS  THEN  APPLY  FOUR  BITS 

0I5D  E6  OF 

0296 

ANI 

OFH  FROM  THE  KELLEY  PORT 

0I5F  67 

0297 

MOV 

H,  A 

0160  C9 

0298 

RET 

0161 

0299  1 
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0161  3E  02 

0300  SHPDLA 

MV  I 

A, 2 

DELAY  A  NHILE 

0163  3D 

0301  SDLA 

DCR 

A 

0164  C2  63  01 

0302 

JNZ 

SDLA 

0167  CR 

0303 

RET 

0168 

0304  1 

0168 

0305  *  A/D  POWER 

CONTROL 

0168 

0306  1  ON  ENTRY: 

CARRY  = I  TG  TURN  ON,  0  TO  TURN  OFF. 

0168 

0307  t 

0168  DC  3A  02 

0308  ADPWR 

CC 

SRLY 

IF  ON,  SET  S/R  RELAY 

016B  3E  40 

0309 

MV  1 

A.40H 

PULSE  THE  5V  RELAY  COIL 

016D  CD  58  02 

0310 

CALL 

PULSE 

0170  3E  80 

0311 

MVI 

A.80H 

AND  THEN  THE  12V  RELAY 

0172  CD  58  02 

0312 

CALL 

FULSE 

0175  CD  48  02 

0313 

CALL 

RRLY 

0178  3A  4C  30 

0314 

LDA 

ADC+GND  ADDRESS  GROUND  INFUT 

017B  C? 

0315 

RET 

one 

0316  1 

017C 

0317  *  SET  THE  MEMORY'  ADDRESS  REGISTER 

01 7C 

0318  1  ON  ENTRY: 

[ Ah’L 3 =16  BIT  ADDRESS  TO  SET 

017C 

0319  * 

017C  C5 

0320  MARSET  PUSH 

B 

017D  E6  03 

0321 

AN1 

7 

MASK  TO  2  BITS 

OrF  47 

0322 

MOV 

B,  A 

0160 

0323  * 

0180  7C 

0324 

MOV 

A.H 

PICK  UP  4  BITS  FROM  HL 

0181  E6  FO 

0325 

ANI 

OF  OH 

0133  BO 

0326 

ORA 

B 

PUT  EH  TOGETHER 

0184  07 

0327 

RLC 

• 

AND  SHIFT  TO  6  LSB’S 

0185  07 

0328 

RLC 

0186  07 

0329 

RLC 

0187  07 

0330 

RLC 

0188  F6  40 

0331 

GRI 

LOADADR  SET  LOAD  FLAG 

018A  CD  A3  01 

0332 

CALL 

OUTHM 

AND  HIGH  BITS 

018D  2D 

0333 

DCR 

L 

SET  LOW  12  8UT  CORRECT 

018E  22  FF  CF 

0334 

SHLD 

LOMAR 

FOR  THE  INCREMENT 

0191  2C 

0335 

INR 

L 

TO  THE  LOW  BYTE. 

0192  3A  09  10 

0336 

LDA 

STBANK 

RESTORE  THE  START  BANK 

0195  CD  CO  01 

0337 

CALL 

SETS8 

TO  THE  HI  MAR  LATCH. 

0198 

0333  1 

0198  29 

0339 

DAD 

H 

NOW  RECORD  THE  MAR  SETTING 

01P9  78 

0340 

MOV 

A,B 

IN  A  SHIFTED  CONFIGURATION 

CI9A  17 

0341 

RAL 

• 

(42) 

0198  32  OD  10 

0342 

STA 

HARRE6+2 

019E  22  OB  10 

0343 

SHlD 

MhRREG 

OIAI  Cl 

0344 

POP 

8 

01A2  C9 

0343 

RET 

01  A3 

0346  * 

01  A3  D5 

0347  OUTHM 

PUSH 

D 

01A4  32  07  10 

0348 

STA 

MEMMODE  RECORD  ALL  HI  MAR  OUTPUTS 

01A7  11  61  70 

0349 

LXI 

D.HIMARI256+BBHIMAR  EDE]=B8+FLIBHT  I 

PABE  07 
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01AA 

CD 

86 

02 

0350 

CALL 

OOUT 

01AD 

01 

0351 

POP 

D 

01AE 

C9 

0352 

RET 

01AF 

0353 

» 

01AF 

0354 

1  SET  SANK  START  ANO  ENO  ADDRESSING 

01 AF 

0355 

1  ON  ENTRY: 

I8I=START  BANK  *  10.. 5) 

01AF 

0356 

1 

CC3=END  BANK  *  (0..5) 

01 AP 

0357 

» 

01AF 

79 

0358 

BANKET  HOV 

A.C  OUTPUT  THE  END  BANK 

01  BO 

E6 

07 

0359 

ANI 

7  MASKED  TO  PROPER  BITS 

01 B2 

OA 

10 

0360 

STA 

ENSANK 

01B5 

EE 

07 

0361 

XRI 

7  ANO  COHPLEHENTED 

0187 

D3 

63 

0362 

OUT 

ENOAD 

01B9 

32 

06 

10 

0j6j 

STA 

ENDCOPY 

01BC 

0364 

1 

01BC 

73 

0365 

HOV 

A. 8  HASP.  THE  START  AOORESS  INFO 

01BD 

09 

10 

0346 

STA 

ST8ANK 

01  CO 

87 

0367 

SETSB 

AOO 

A  PUT  IN  THE  3  ZERO  BITS 

01C1 

87 

0368 

ADO 

A 

01 C2 

87 

0369 

ADO 

A 

01C3 

E6 

3F 

0370 

SETHH 

ANI 

UPPERS 

01C5 

4F 

0371 

HOV 

C.A 

01 C6 

3A 

07 

10 

0372 

LDA 

HEHHOOE  DON’T  EFFECT  THE  HEHHODE 

01C9 

E6 

80 

0373 

ANI 

AUTONRITE 

01CB 

B1 

0374 

ORA 

C 

01CC 

C3 

A3 

01 

0375 

JHP 

OUTHH 

01 CF 

0376 

» 

01 CF 

0377 

1  SET/RESET  THE  HEI10RY  AUTONRITE  MODE 

01CF 

0378 

»  ON  ENTRY: 

[AIM  FOR  AUTONRITE  ELSE  NO  AUTONRITE 

01CF 

0379 

» 

01CF 

E6 

01 

0380 

HODESET  ANI 

1  USE  ONLY  THE  LSB 

0101 

OF 

0381 

RRC 

• 

01D2 

47 

0382 

HOV 

B , A  SAVE  THE  BIT 

0103 

3A 

07 

10 

0383 

LOA 

HEHHODE  PICK  UP  THE  CURRENT  START 

01 D6 

E6 

3F 

0384 

ANI 

UPPERS  BANK 

011)8 

BO 

0385 

ORA 

8 

01D9 

C3 

A3 

01 

0386 

JHP 

OUTHH 

01  DC 

0387 

1 

01 OC 

0388 

1  NEHORY  FUNCTIONS 

01DC 

0339 

1 

010C 

2A 

00 

FO 

0390 

READ 

LHLO 

HEHRO 

01 DF 

C3 

E5 

01 

0391 

JHP 

INCHAR 

01 E2 

0392 

1 

01E2 

22 

00 

80 

0393 

WRITE 

SHLD 

HEH 

01E5 

E5 

0394 

INCHAR 

PUSH 

H 

01 E6 

ZA 

OB 

10 

0395 

LHLO 

HARREG  1NCREHENT  THE  HAR  COPY 

01E9 

11 

04 

00 

0396 

LX  I 

D,4  BY  DOUBLE  THE  AHOUNT  TO  HAKE 

01EC 

19 

0397 

DAD 

0  THE  BANK  #  IN  1  BYTE. 

01  ED 

22 

OB 

10 

0398 

SHLO 

HARREG 

01F0 

D2 

FF 

01 

0399 

JNC 

INCEX 
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01F3 

n  * 

L  i 

OD 

10 

0400 

Ln 

H.MARF.EGt2  IF  MARBANK++  ==ENDBANK+ 1  VALUE 

01F6 

34 

0401 

INR 

M 

01F7 

3A 

OA 

10 

0402 

LDA 

EMBANK  THEN  REWIND 

01FA 

3C 

0403 

1NP 

A 

01FB 

BE 

0404 

CMP 

M 

01FC 

Cl 

01 

02 

0405 

CZ 

REWIND 

01FF 

El 

04 0£ 

1NCEK  FOP 

H 

0200 

C° 

0407 

1 1 C 

RET 

> 

REWIND  LDA 

\J£  V  ■ 

0201 

3A 

09 

10 

UnvC 

040? 

STBANK  SET  MAR  TO  BEGINNING  OF  BANK 

0204 

CD 

OA 

02 

0410 

CALL 

ADRBANK 

0207 

CJ 

7C 

01 

0411 

JMP 

HARSET 

020A 

0412 

* 

020A 

OF 

0413 

ADRBANK  RRC 

CONVERT  BANK  INTO  ADDRESS 

020B 

C5 

0414 

PUSH 

B 

020C 

47 

0415 

HO  V 

8,  A 

020D 

E6 

EO 

0416 

ANI 

80H 

020F 

67 

0417 

MOV 

H.A 

0210 

2E 

00 

0418 

MVI 

L,0 

0212 

78 

0419 

MOV 

A.  B 

0213 

E6 

03 

0420 

ANI 

■J 

0215 

Cl 

0421 

POP 

B 

0216 

C9 

0422 

PET 

0217 

0423 

1 

0217 

0424 

1  READ-BACK  MEMORY  ADDRESS  REGISTER 

0217 

0425 

I 

0217 

3A 

OD 

10 

0426 

HARGET  LDA 

MARRE6+2  GET  THE  COPY 

021 A 

C5 

0427 

PUSH 

B 

02  IB 

E7 

0428 

ORA 

A 

02 1C 

IF 

0429 

RAR 

FROM  THE  RAM  AND 

021D 

47 

0430 

MOV 

8, A  DIVIDE  BY  2 

021E 

2A 

OB 

10 

0431 

LHLD 

MARREG 

0221 

7C 

0432 

MOV 

H,  H 

0222 

IF 

0433 

RAR 

0223 

67 

0434 

MOV 

H,A 

0224 

7D 

0435 

MOV 

A.L 

0225 

IF 

0436 

RAR 

0226 

6F 

0437 

MOV 

L,  A 

0227 

7e 

0438 

MOV 

A, 8 

0220 

Cl 

0439 

POP 

B 

0229 

C9 

0440 

RET 

022A 

0441 

1 

022A 

0442 

»  MEMORY  POWER  CONTROL  SECTION 

022A 

0443 

»  ON  ENTRY: 

£A3=  BANK  NUMBER  TO  TURN  ON  OP  OFF 

022A 

0444 

» 

CARRY=!  FOR  ON,  0  FOR  OFF 

022A 

0445 

t 

022A 

DC 

3A 

02 

0446 

MEMPWP  CC 

SRLY  IF  CRY,  PREPARE  SET/RESET  RELAY 

0220 

FE 

06 

0447 

CFI 

6  IF  ERRONEOUS  BANK,  SIMPLY  RETURN 

022F 

DO 

0448 

RNC 

t 

0230 

CD 

7B 

02 

0449 

CALL 

UNARY  CONVERT  TO  UNARY 
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0233 

7D 

0450 

MOV 

A.L  SO  THAT  HE  PULSE  ONLY  1 

0234 

CD 

58 

02 

0451 

CALL 

PULSE  DO  IT. 

0237 

C3 

48 

02 

0452 

JNP 

RRLY  AND  60  TO  LOH  POHER  AFTERHARD 

023A 

0453 

1 

023A 

0454 

1  RELAY  CONTROL  SECTION 

023A 

0455 

1 

023A 

F5 

0456 

SFLY 

PUSH 

PSH 

023B 

3A 

06 

10 

Q457 

LDA 

ENDCOPY  SET-RESET  TO  SET  POSITION 

023E 

F6 

20 

0458 

0R1 

SRRLY 

0240 

C3 

4E 

02 

0458 

JMP 

SRSET 

0243 

0460 

1 

0243 

3E 

FF 

0461 

RLY1NIT  MV  I 

A.OFFH  RESET  ALL  RELAY  COILS 

0245 

CD 

61 

02 

0462 

CALL 

OUTRELAYS 

0248 

0463 

1 

0248 

F5 

0464 

RRLY 

PUSH 

PSH 

0249 

3A 

06 

10 

0465 

LDA 

ENDCOPY  RESET  POSITION 

024C 

E6 

DF 

0466 

AN1 

-1 -SRRLY 

024E 

D3 

63 

0467 

SRSET 

OUT 

RLYCTL 

0250 

32 

06 

10 

0468 

STA 

ENDCOPY 

0253 

CD 

71 

02 

0469 

CALL 

D5HS  DELAY  FOR  IT  TO  SETTLE  OUT 

0256 

FI 

0470 

POP 

PSH 

0257 

C9 

0471 

RET 

0258 

0472 

1 

0258 

2F 

0473 

PULSE 

CMA 

OUTPUT  IN  COMPLEMENT  FORM 

0259 

CD 

61 

02 

0474 

CALL 

OUTRELAYS 

025  C 

CD 

71 

02 

0475 

CALL 

D5HS  AND  DELAY  FOR  THE  FLIP 

025F 

0476 

1 

025F 

3E 

FF 

0477 

MV  I 

A.OFFH  RESET  ALL  COILS 

0261 

11 

62 

20 

0478 

OUTRELAYS  LX1  D , RELAYS4256+BBRELAYS 

0264 

C3 

86 

02 

0479 

JMP 

DOUT 

0267 

0480 

t 

0267 

06 

C8 

0481 

SECOND 

MV  I 

B.200  DELAY  1  SECOND 

0269 

CD 

71 

02 

0482 

SEC1 

CALL 

D5MS 

026C 

05 

0483 

DCR 

B 

026D 

C2 

69 

02 

0484 

JN2 

SEC1 

0270 

C9 

0485 

RET 

0271 

0486 

t 

0271 

11 

71 

02 

0487 

D5HS 

LX  I 

0,54341000/24  DELAY  5  H1LLISECS  AT  : 

0274 

IB 

0488 

DELAY 

DCX 

D 

0275 

78 

0489 

MOV 

A.E 

0276 

B2 

0490 

ORA 

D 

0277 

C2 

74 

02 

0491 

JNZ 

DELAY 

027A 

C9 

0492 

RET 

027B 

0493 

4 

027B 

0494 

4  CONVERT  NUMBER  IN  A  INTO  UNARY  IN  HL 

027B 

0495 

4 

027B 

21 

01 

00 

0496 

UNARY 

LXI 

H.l 

027E 

E6 

OF 

0497 

AN1 

15 

0280 

C8 

0498 

UNA1 

RZ 

t 

0281 

29 

0499 

DAD 

H 

PA6E  10 
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0282  30 

0500 

OCR 

A 

0283  C3  80  02 

0501 

JNP 

UNA1 

0286 

0502 

1 

0286 

0503 

1  B  OUTPUT. 

THIS  ROUTINE  MAINTAINS  COMPATIBILITY  BETWEEN 

0286 

0504 

1 

THE  BREADBOARD  AND  FLIGHT  UNITS  BY  OUTPUTTING 

0286 

0505 

1 

THE  ACCOM  TO  PORTiOi  IF  FLIGHT  ANO  POPT(E)  IF 

0286 

0506 

I 

THE  BREADBOARD. 

0286 

0507 

1 

0286  F5 

0508 

BOUT  push 

PSW 

SAVE  THE  ACCUM 

0297  3E  01 

0501? 

MV  I 

A, FLIGHT  THE  FLIGHT  UNIT=1 

0289  B7 

0510 

OPA 

A 

028A  C2  5E  02 

0511 

JN2 

DOFLGHT 

028D  53 

0512 

MOV 

O.E 

023E  FI 

0513 

DOFLGHT  POP 

PSW 

STORE  THE  DATA  AT  PORT(D) 

028F  12 

0514 

STAX 

0 

0290  C9 

0515 

RET 

0291  00 

V  0516 

OB 

256 

ENO-OF-BIO  NQOULE 

0292 

0517 

1 

0292 

0518 

1  VARIABLES  FOR  THE  BURST  ORIVERS 

0292 

0519 

1 

0292 

0520 

ORG 

BIORAM 

1000 

0521 

SDCOPV  OS 

1 

SERIAL  DATA  COPY 

1001 

0522 

CHORES  DS 

T 

4. 

COMMAND  REGISTER 

1003 

0523 

CHDSTAT  OS 

1 

COMMAND  STATUS  ( 1 =READY) 

1004 

0524 

TIH1VECT  OS 

2 

TIMER  1  VECTOR 

1006 

0525 

ENBCOPY  OS 

l 

COPY  OF  END  ADDRESS 

1007 

0526 

MEMMODE  OS 

1 

MEMORY  MODE  RE6ISTER 

1008 

0527 

IOHDDE  DS 

1 

CHO  PENDING  MODE 

1009 

0528 

STBANK  DS 

1 

START  BANK  OF  MEMORY  , 

100A 

0529 

EMBANK  OS 

1 

ENO  BANK 

100B 

0530 

MARREG  OS 

3 

RAM  COPY  OF  MEMORY  ADDRESS  REG 

100E 

0531 

LPWAIT  OS 

LPWLEN 

LOW  POWER  WAIT  ROUTINE 
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0000 

0001  1 

0000 

0002  1  CRRES  FL16HT  SOFTWARE— BURST  SAMPLING  ROUTINES 

0000 

0003  1  FILE 

:  BSMP.A 

0000 

0004  1 

0000 

0005  PSW 

E8U 

6  PROCESSOR  EQUATES 

0000 

0006  1 

0000 

0007  1  ENTRY  POINTS 

0000 

0008  1 

000 0 

0009 

0R8 

BSMP 

0540  C3  46  05 

0010 

3MP 

BSHP1N1T 

0543  C3  63  05 

0011 

JMP 

BSMPCMO 

0546 

0012  1 

0546 

0013  1  INITIALIZE  THE  SAMPLING  ROUTINES. 

0546 

0014  1 

0546  CD  CO  08 

0015  8SHP1N1T  CALL 

1N1FMT  RESET  ALL  FORMATS 

0549  97 

0016 

SUB 

A  SET  TO  FORHAT(O) 

054A  CD  C3  08 

0017 

CALL 

SETFMT 

054D  3E  OF 

0018 

MV1 

A,  15  SET  TO  HIGHEST  RATE 

054 F  CD  94  05 

0019 

CALL 

SETRATE 

0552  B7 

0020 

ORA 

A  TURN  OFF  THE  A/D  POWER 

0553  CD  52  00 

0021 

CALL 

AOPWR 

0556  97 

0022 

SUB 

A  ZERO  THE  MODE 

0557  32  D5  10 

0023 

STA 

BMOOE 

055A  21  00  00 

0024 

LX1 

H , 0  ZERO  THE  MEMORY  AOORESS 

055D  CD  5B  00 

0025 

CALL 

MARSET 

0560  21  45  B3 

0026 

LX1 

H.0B345H  TURN  ON  BANKS  4  ANO  5 

'>563 

0027  1 

0563  7C 

0028  BSHPCMO  MOV 

A,H  IF  COMMAND  BEGINS  WITH 

0564  E6  FO 

0029 

AN1 

OFOH  OBXXXH,  THEN  WE’RE  INTERESTED 

0566  FE  BO 

0030 

CPI 

OBOH 

0568  37 

0031 

STC 

, 

0569  CO 

0032 

RNZ 

, 

056A 

0033  1 

056A  7C 

0034 

MOV 

A, H  CALCULATE  WHICH  OF  THE  SHP  COMMANDS 

056B  D6  BO 

0035 

SU1 

OBOH  THIS  ONE  IS. 

056 D  FE  OB 

0036 

CPI 

NCMDS  IF  GREATER  THAN  KNOWN  CMO 

056F  3F 

0037 

CMC 

RETURN(CARRY) 

0570  D8 

0038 

RC 

. 

0571 

0039  I 

0571  EB 

0040 

XCHG 

SAVE  THE  ORIGINAL  COMHANO  VALUE 

0572  87 

0041 

ADD 

A 

0573  21  7E  05 

0042 

LX1 

H, CHDTB  ANO  REFERENCE  THE  TABLE 

0576  CD  51  08 

0043 

CALL 

REF  FOR  THE  ROUTINES  AOORESS 

0579  CO  56  08 

0044 

CALL 

LOOHL 

057C  76 

0045 

MOV 

A.E  fi=LOW  VALUE  OF  COMMAND 

0570  E9 

0046 

PCHL 

057E 

0047  1 

057E  94  05 

0048  CHDTB 

OW 

SETRATE  BFREQ 

0530  C3  08 

0049 

CW 

SETFMT  BFHT 
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0582  C6  08 

0050 

DW 

ADDFMT  BQTY 

0584  9A  05 

0051 

DW 

BSELECT  BANKS 

058a  E0  05 

0052 

DW 

SO  BGO 

0538  2E  06 

0053 

DW 

STOP  BSTOP 

059A  26  06 

0054 

DW 

PAUSE  BPAUSE 

058C  19  06 

0055 

DW 

CONT  BCONTINUE 

056E  46  06 

0056 

DW 

PLAY  BPLAY 

0590  00  00 

0057 

DW 

0  BRESET 

0592  D9  05 

0058 

DW 

MQDSET  BMODE 

0594 

0059 

NCMDS 

E6U 

4-CMDTB/2  NUMBER  OF  COMMANDS 

05^4 

0060 

1 

0594 

0061 

1  SET 

THE  RATE  OF  THE  BURST 

0594 

0062 

t 

0594  E6  OF 

0063 

SETRATE  ANI 

15 

0596  32  C4  10 

0064 

STA 

FREQ  SET  NEW  DESIRED  FREQ 

0599  C9 

0065 

RET 

059A 

0066 

» 

059A 

0067 

1  SELECT  THE  MEMORY  BANKS  TO  USE 

059A 

0068 

» 

059A  5F 

0069 

BSELECT  MOV 

E,ft 

059E  OF 

0070 

RRC 

B=ST ART  BANK 

059C  OF 

0071 

RRC 

C59D  OF 

0072 

RRC 

059 E  OF 

0073 

RRC 

059F  E6  07 

0074 

ANI 

7 

05A1  47 

0075 

MOV 

8, A 

05A2  32  C6  10 

0076 

STA 

STBANK 

05A5 

0077 

1 

05A5  7B 

0078 

MOV 

A.E  CSEND  BANK 

05A6  E6  07 

0079 

ANI 

7 

05A8  4F 

0080 

MOV 

C,  ft 

05A9  32  C7  10 

0081 

STA 

ENBANK 

05AC  CD  5E  00 

0082 

CALL 

BANKSET 

05AF 

0083 

1 

05AF 

0084 

I  MEMORY  POWER  CONTROLLER.  TURNS  ON  STBANK. 

05AF 

0085 

1  AND  TURNS  OFF  ANY  OTHERS. 

05AF 

0086 

1 

05AF  21  05  00 

0087 

MEMPC 

HI 

H.005H  TURN  OFF  BANKS  0  TO  5 

05B2  06  00 

0088 

MV  I 

B,  0 

0584  CD  C8  05 

0089 

CALL 

ONOFF 

05B7 

0090 

1 

0587  3A  C6  10 

0091 

LDA 

STBANK  TURN  ON  FROM  START  TO 

05BA  E6  07 

0092 

ANI 

7 

05BC  67 

0093 

MOV 

H,A 

05BD  3A  C7  10 

0094 

LDA 

ENBANK 

05C0  6F 

0095 

MOV 

L.A 

05C1  06  01 

0096 

MV  I 

B,1 

05C3  CD  C3  05 

0097 

CALL 

ONOFF 

05C6  B7 

0098 

CRA 

A  RETURNtNO  CARRY! 

05C7  C9 

0099 

RET 
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OSCS 

0100 

1 

05C8 

0101 

DNDFF 

E8U 

$ 

05CS 

7D 

0102 

HDV 

A,L  IF  START  >  END,  RETURN 

05C9 

SC 

0103 

CMP 

H 

05CA 

D3 

0104 

RC 

a 

05CB 

7B 

0105 

HDV 

A, 8  SET  FDR  DN  DR  DFF 

05CC 

OF 

0106 

RRC 

05CD 

7C 

0107 

HDV 

A.H  SELECT  BANK 

OSCE 

E5 

0108 

PUSH 

H 

05CF 

C5 

0109 

PUSH 

B 

05D0 

CD 

SS 

00 

0110 

CALL 

MEMPWR 

05D3 

Cl 

0111 

PDP 

B 

05D4 

El 

0112 

POP 

H 

OSDS 

24 

0113 

I  NR 

H 

05D6 

C3 

CS 

05 

0114 

JMP 

ONOFF 

05D9 

0115 

1 

05D9 

32 

D5 

10 

0116 

MDDSET 

STA 

BMDDE 

05DC 

OF 

0117 

RRC 

, 

05DD 

C3 

52 

00 

0118 

JMP 

ADPWR 

05E0 

0119 

1 

05E0 

0120 

1  BURST  START/STQP/PAUSE/CQNT  CDNTRDLS 

05E0 

0121 

1 

OSEO 

0122 

SD6US 

EQU 

1800H  BOGUS  SAMPLE  (SATURATED  HIGH  GAIN) 

05E0 

0123 

SHARK 

EfiU 

SOGUS+OAOOAH  START  MARKER 

05E0 

0124 

PHARK 

EQU 

BQGUS+OCOOCH  PAUSE  MARKER 

05E0 

0125 

EHARK 

EQU 

SOGUS+OEOOEH  STDP  MARKER 

OSEO 

0126 

« 

OSEO 

3A 

D5 

10 

0127 

GD 

LDA 

BMDDE  TURN  DN  THE  A/D  IN 

05E3 

OF 

0126 

RRC 

, 

05E4 

3F 

0129 

CMC 

05E5 

DC 

52 

00 

0130 

CC 

ADPHR  CASE  IT  IS  DFF 

OSES 

CD 

E4 

06 

0131 

CALL 

CHPROS  COMPILE  THE  SAMPLE  PROGRAM 

05ES 

3A 

C5 

10 

0132 

LDA 

REALF  SEND  THE  REAL  FREQ  SACK 

05EE 

CD 

CF 

06 

0133 

CALL 

SENDA 

05F1 

CD 

65 

07 

0134 

CALL 

6ETDUR  CALCULATE  DURATION  DF  BURST 

05F  4 

22 

CO 

10 

0135 

5HLC 

DURATION 

05F7 

C5 

0136 

PUSH 

D 

05FB 

CD 

4F 

00 

0137 

CALL 

SEND 

05FS 

El 

0138 

POP 

H 

05FC 

22 

C2 

10 

0139 

SHLD 

DURATION+2 

05FF 

CD 

4F 

00 

0140 

CALL 

SEND 

0602 

0141 

t 

0602 

CD 

70 

00 

0142 

WRTST 

CALL 

REWIND  REPOSITION  THE  DIGITAL  TAPE 

0605 

21 

OA 

SS 

0143 

LXI 

H, SHARK  WRITE (’START-MARK’)  INTO  MEMORY 

0608 

CD 

6D 

00 

0144 

CALL 

WRITE  IN  CASE  OF  SHORT  BURST 

060B 

0145 

1 

060B 

CD 

70 

00 

0146 

CALL 

REWIND  VERIFY  THE  MARK 

060E 

CD 

6A 

00 

0147 

CALL 

READ 

0611 

11 

OA 

B8 

0148 

LXI 

D,  SHARK 

0614 

CD 

SS 

08 

0149 

CALL 

EQ 16 

RASE  03 
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0617 

37 

0150 

STC 

0618 

CO 

0151 

RNZ 

0619 

0152  1 

0619 

3E 

01 

0153  CONT 

MV  I 

A, 1  SHOW  THE  FILE  OPEN 

0618 

32 

C8 

10 

0154 

STA 

F1LESTAT 

06  IE 

CD 

1C 

07 

0155 

CALL 

GETDLA  C=DELAY  VALUE 

0621 

CD 

D6 

10 

0156 

CALL 

SMPAREA  AND  BEGIN 

0624 

97 

0157 

SUB 

A  RETURN(O) 

0625 

C9 

0158 

RET 

0626 

0159  1 

0626 

21 

OC 

D8 

0160  PAUSE 

LXI 

H.PMARK  WRITE (’PAUSE-MARK' 1 

0629 

CD 

6D 

00 

0161 

CALL 

WRITE 

062C 

97 

0162 

SUB 

A  RETURN  <  0) 

062D 

C9 

0163 

RET 

062E 

0164  t 

062E 

3A 

D5 

10 

0165  STOP 

LDA 

BMODE  TURN  OFF  THE  A/D  CONVERTER 

0631 

OF 

0166 

RRC 

UNLESS  COMMANDED  TO  STAY  ON 

0632 

D4 

52 

00 

0167 

CNC 

ADPWR 

0635 

CD 

9F 

07 

0168 

CALL 

FCLOSE 

0638 

21 

48 

4F 

0169 

LXI 

H, ’OK' 

0638 

D2 

41 

06 

0170 

•JNC 

ST0P1 

063E 

21 

4F 

4E 

0171 

LXI 

H, ’NO’ 

0641 

CD 

4F 

00 

0172  ST0P1 

CALL 

SEND 

0644 

87 

0173 

ORA 

A 

0645 

C9 

0174 

RET 

0646 

0175  1 

0646 

0176  1  BEGIN  PLAYBACK.  TO  THE  MASTER  COMPUTER 

0646 

0177  1 

0646 

3A 

C8 

10 

0178  PLAY 

LDA 

F1LESTAT  IF  PILE  OPEN,  CLOSE  IT 

0649 

FE 

01 

0179 

CPI 

1  TO  GET  THE  FILE  PARAMETERS 

0648 

CC 

9F 

07 

0180 

CZ 

FCLOSE 

064E 

0181  1 

064E 

CD 

8A 

06 

0182 

CALL 

PHEAD  PLAY  HEADER 

0651 

3A 

C8 

10 

0183 

LDA 

F1LESTAT  IF  AN  ERROR  IN  FILE,  QUIT 

0654 

FE 

02 

0184 

CPI 

2 

0656 

ce 

0185 

RZ 

0657 

2A 

C9 

10 

0186 

LHLD 

STADR  POSITION  HEAD  TO  START  MARK 

065A 

3A 

CB 

10 

0187 

LDA 

STADR+2  OR  THE  FIRST  VALID  RECORD 

065D 

CD 

5B 

00 

0188 

CALL 

MARSET 

0660 

0189  1 

0660 

CD 

49 

00 

0190  PLOOP 

CALL 

RECSTAT  IF  COMMAND  READY.  QUIT  THIS 

0663 

C2 

81 

06 

0191 

JNZ 

PLAYX 

0666 

CD 

6A 

00 

0192 

CALL 

READ  ELSE  PLAY  OUT  DATA  UNTIL  END-1 

0669 

CD 

4F 

00 

0193 

CALL 

SEND 

066C 

0194  1 

066C 

CD 

73 

00 

0195 

CALL 

MARGET  IP  THE  ADDRESS  MATCHES 

066F 

E8 

0196 

XCHG 

WHERE  WE  FOUND  THE  ENDMARK 

0670 

47 

0197 

MOV 

8, A 

0671 

2A 

CC 

10 

0198 

LHLD 

ENADR  QUIT 

0694 

CD 

56 

08 

0199 

CALL 

EQ16 
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0677  C2 

60 

06 

0200 

JN2 

PLOOP 

067A  3A 

CE 

10 

0201 

LDA 

ENADR+2 

067D  BB 

0202 

CMP 

B 

067E  C2 

60 

06 

0203 

JNZ 

PLOOP 

0681 

0204  I 

06B1  97 

0205  PLAYX 

SUB 

A 

MAR  =  0 

06B2  21 

00 

00 

0206 

LXI 

H,  0 

0685  CD 

5B 

00 

0207 

CALL 

NARSET 

06BB  B7 

020B 

ORA 

A 

RETURN (0) 

06B9  C9 

0209 

RET 

06BA 

0210  1 

06BA 

0211  4  PLAY  HEADER 

06BA 

0212  I 

06 BA  3E 

B2 

0213  PHEAD 

MV  I 

A.0B2H 

START  HEADER  PLAYBACK 

068C  CD 

CF 

06 

0214 

CALL 

SENDA 

068F  3E 

Hi 

0215 

NVI 

A.0A1H 

FORMAT  1 

0691  CD 

CF 

06 

0216 

CALL 

SENDA 

0694  3A 

C5 

10 

0217 

LDA 

REALF 

REAL  FREQUENCY  CODE 

0697  CD 

CF 

06 

021B 

CALL 

SENDA 

069A 

0219  1 

069A  2A 

C9 

10 

0220 

LHLD 

STADR 

START  ADDRESS 

069D  CD 

4F 

00 

0221 

CALL 

SEND 

06A0  2A 

CA 

10 

0222 

LHLD 

STADR* 1 

06A3  CD 

D8 

06 

0223 

CALL 

DIV16 

06A6  CD 

4F 

00 

0224 

CALL 

SEND 

06A9 

0225  1 

06A9  2A 

CC 

10 

0226 

LHLD 

ENADR 

PAGE  OF  END  ADDRESS 

06AC  CD 

4F 

00 

0227 

CALL 

SEND 

06AF  2A 

CD 

10 

022B 

LHLD 

ENADR+1 

0682  CD 

DB 

06 

0229 

CALL 

DIV16 

06B5  CD 

4F 

00 

0230 

CALL 

SEND 

06BB 

0231  1 

06B8  CD 

C9 

08 

0232 

CALL 

ADRFMT 

IDE1-7L1ST 

06BB  EB 

0233 

XCHG 

, 

068C  CD 

CC 

OB 

0234 

CALL 

LNGFNT 

C=LEN6TH  OF  FMT 

06BF  4F 

0235 

NOV 

C,  A 

06C0  CD 

CF 

06 

0236 

CALL 

SENDA 

SEND  LENGTH 

06C3  79 

0237  SGTYLP  MOV 

A,C 

IF  NO  6TYS  LEFT,  QUIT 

06C4  B7 

0238 

ORA 

A 

06C5  CB 

0239 

RZ 

, 

06C6  1A 

0240 

LDAX 

D 

SEND  NEXT  QTY  DESCRIPTOR 

06C7  CD 

CF 

06 

0241 

CALL 

SENDA 

06CA  13 

0242 

I  MX 

D 

06CB  OD 

0243 

DCR 

C 

06CC  C3 

C3 

06 

0244 

JHP 

SBTYLP 

06CF 

0245  I 

06CF  6F 

0246  SENDA 

MOV 

L.A 

06D0  26 

00 

0247 

MVI 

H,0 

06D2  C3 

4F 

00 

0243 

JMP 

SEND 

06D5  C3 

CB 

05 

0249 

JNP 

ONOFF 
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06D8 

0250 

1 

06D3 

06 

04 

0251 

DIV16  MV I 

B,4  SHIFT  HL  RIGHT  4  BITS 

06DA 

97 

0252 

SUB 

A 

06DE 

29 

0253 

DV1  DAD 

H 

06DC 

17 

0254 

RAL 

, 

06DB 

05 

0255 

DCR 

B 

06DE 

C2 

DB  06 

0256 

JN2 

DV1 

06E1 

6C 

0257 

MOV 

L.H 

06E2 

67 

0258 

MOV 

H,A 

06E3 

C9 

0259 

RET 

06E4 

0260 

t 

06  E  4 

0261 

1  COMPILE  THE  SAMPLING  LIST  INTO  A  PROGRAM 

06E4 

0262 

t 

06E4 

CD 

OB  07 

0263 

CMPRQG  CALL 

CHKFREQ  CHECK  FREQUENCY 

06E7 

41 

0264 

MOV 

B.C  SAVE  THE  DELAY  CODE 

06E8 

CD 

CC  08 

0265 

CALL 

LNGFMT  C=LENSTH  OF  THE  FORMAT 

OtEB 

4F 

0266 

MOV 

C,  A 

06EC 

CD 

C7  08 

0267 

CALL 

ADRFMT  IDE1-M.IST  OF  QTYS 

06EF 

EB 

0268 

XCHG 

, 

06  FO 

21 

56  10 

0269 

LXl 

H.SMPAP.EA  [HLK/AREA  TO  PUT  PROGRAM 

06  F  3 

0270 

1 

06F3 

3A 

C5  10 

0271 

LDA 

REALF  IF  THE  FREQUENCY  IS  IN  THE 

06F6 

FE 

08 

0272 

CPI 

INTYPE  INTERRUPT  TIMES,  GO 

06F8 

D2 

00  07 

0273 

JNC 

INTCMP 

06FB 

06 

02 

0274 

MV  I 

3,2 

06  FB 

C3 

40  Oh 

0275 

JMP 

COMPILE 

0700 

0276 

1 

0700 

78 

0277 

I NT CMP  MOV 

A , B  GET  THE  DELAY  CODE 

0701 

37 

0278 

ORA 

A  IF  ZERO  DELAY,  REQUEST  THIS 

0702 

06 

00 

0279 

MV  I 

8.0  FROM  THE  COMPILER 

0704 

CA 

40  OA 

0280 

JZ 

COMPILE 

0707 

04 

0281 

INR 

B  IF  SOME  DELAY,  ASK  FOR  IT 

0708 

C3 

40  OA 

0282 

JMP 

COMPILE 

070B 

0283 

t 

070B 

0284 

*  CHECK  THAT  THE  REQUESTED  FREQUENCY  IS  POSSIBLE 

070B 

0285 

t  SET  REALF  AT  WHATEVER  IS  THE  REAL  FREQUENCY 

070B 

0286 

1 

070B 

3A 

C4  10 

0287 

CHKFRE9  LDA 

FREQ  ASSUME  THE  REAL  RATE  IS 

070E 

32 

C5  10 

0288 

STA 

REALF  THE  REQUESTED  RATE. 

0711 

0289 

1 

0711 

CD 

1C  07 

0290 

CHKRT  CALL 

GETDLA  C=DELAY  VALUE 

0714 

DO 

0291 

RNC 

IF  VALID,  RETURN 

0715 

21 

C5  10 

0292 

LXI 

H, REALF  ELSE  DECREASE  THE  FREQUENCY  CODE 

0718 

35 

0293 

DCR 

M  AND  TRY  AGAIN 

0719 

C3 

11  07 

0294 

JMP 

CHKRT 

071C 

0295 

1 

071C 

3A 

C5  10 

0296 

GETDLA  LDA 

REALF  GET  THE  PRDPEP.  DELAY  VALUE 

071F 

21 

35  07 

0297 

LXI 

H , DLATBL  TO  REGULATE  SPEED 

0722 

CD 

51  03 

0298 

CALL 

REF 

0725 

4E 

0299 

MOV 

C,M 
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0726 

0300 

1 

0726 

3A 

C5  10 

0301 

LDA 

0729 

FE 

08 

0302 

CPI 

0728 

3F 

0303 

CMC 

072C 

DO 

0304 

RNC 

072D 

0305 

1 

072D 

CD 

CC  08 

0306 

CALL 

0730 

47 

0307 

MOV 

0731 

79 

0308 

MOV 

0732 

90 

0309 

SUB 

0733 

4F 

0310 

MOV 

0734 

C9 

0311 

RET 

0735 

0312 

1 

0735 

C8 

0313 

DLATBL 

DB 

0736 

64 

0314 

DB 

0737 

28 

0315 

DB 

0738 

14 

0316 

D8 

0739 

OA 

0317 

DB 

073A 

04 

0318 

D8 

0738 

02 

0319 

DB 

073C 

01 

0320 

D8 

073D 

0321 

1 

073D 

0322 

INTYPE 

EQU 

073D 

14 

0323 

DB 

073E 

OA 

0324 

D8 

073F 

06 

0325 

D8 

0740 

04 

0326 

D8 

0741 

03 

0327 

D8 

0742 

02 

0328 

DE 

0743 

01 

0329 

DB 

0744 

00 

0330 

D8 

0745 

Oo  j1 

FRMAX 

EQU 

0745 

0332 

1 

0745 

OA 

00 

0333 

FRQT8 

DW 

0747 

14 

00 

0334 

DW 

0749 

32 

00 

0335 

DW 

0748 

64 

00 

0336 

DW 

074D 

C8 

00 

0337 

DW 

074F 

F4 

01 

0338 

DW 

0751 

E8 

03 

0339 

DW 

0753 

DO 

07 

0340 

DW 

0755 

AO 

08 

0341 

DW 

0757 

40 

17 

0342 

DW 

0759 

Cl 

26 

0343 

DW 

0758 

21 

3A 

0344 

DW 

075D 

81 

4D 

0345 

DW 

075F 

42 

74 

0346 

DW 

0761 

84 

E8 

0347 

DW 

0763 

84 

E8 

0348 

DW 

0765 

0349 

t 

REALF 

IF  <  INTERRUPT  TYPE  CODE 

INTYPE 

THEN  RETURNING  CRY) 

LNGFMT 

ELSE  SUBTRACT  THE  LENGTH 

B,  A 

OF  THE  LIST  FROM  THE  DELAY 

A ,  C 

SINCE  SAMPLING  ALWAYS  DELAYS 

B 

ITSELF. 

C,A 

200 

10  HZ  CODES  0-7 

100 

20  (ALL  INTERRUPT  TIME-BASED) 

40 

50 

20 

100 

10 

200 

4 

500 

2 

1000 

1 

2000 

i-DLATBL  ALL  CODES  BELOW  ARE  INTERRUPTS 
20  CODES  8-15  (CPU  CYCLE  COUNTING) 

10 

6 

4 

3 

2 

1 

0 

4-DLAT8L-2 

10  FREQUENCIES 

20 
50 
100 
200 
500 
1000 
2000 
2976 
5952 
9921 
14881 
19841 
29762 
59524 
59524 
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0765 

0350  1 

CALCULATE  THE  LENGTH  DF  TIME  TD  FILL  MEMORY 

0765 

0351  1 

0765 

3A 

C5 

10 

0352  GETDUR  LDA 

REALF  REFERENCE  FRQT8  TD  GET 

0768 

87 

0353 

ADD 

A  THE  ISAMPLES  SETS/SECDND 

0765 

21 

45 

07 

0354 

LX  1 

H.FR8TB 

076C 

CD 

51 

08 

0355 

CALL 

REF 

076F 

CD 

56 

03 

0356 

CALL 

LODHL 

0772 

E5 

0357 

PUSH 

H 

0773 

CD 

CC 

08 

0358 

CALL 

LNGFMT  GET  THE  ISTYS  IN  THE  LIST 

0776 

Cl 

0359 

PDP 

D 

0777 

CD 

24 

OC 

0360 

CALL 

MU21  AND  MULTIPLY  TD  GET  TOTAL 

077A 

16 

00 

0361 

MVI 

D,0  INPUT  RATE  TD  MEMORY. 

077C 

5F 

0362 

MDV 

E,A 

077D 

CD 

18 

oc 

0363 

CALL 

FLT32  CONVERT  TD  FLOATING  POINT 

0780 

0364  1 

0780 

21 

CF 

10 

0365 

LX  1 

H.TRATE  AND  SAVE  THE  TOTAL  RATE 

0783 

CD 

03 

oc 

0366 

CALL 

STOFP 

0786 

0367  ! 

0786 

3A 

C7 

10 

0368 

LDA 

ENBANK  CALCULATE  »  BANKS 

0789 

21 

C6 

10 

0369 

LX1 

H.STBANK  TIMES  16K  WORDS  1  1000 

078C 

96 

0370 

SUB 

M  WHICH  IS  NBANKS  1  24  BITS 

078D 

3C 

0371 

1NR 

A 

078E 

57 

0372 

MOV 

D,  A 

078F 

IE 

00 

0373 

MVI 

E.O 

0791 

26 

00 

0374 

MVI 

H,0 

0793 

CD 

18 

oc 

0375 

CALL 

FLT32 

0796 

0376  1 

0796 

21 

CF 

10 

0377 

LX1 

H.TRATE  NDW  DIVIDE  BY  THE  INPUT  RATE 

0799 

CD 

09 

oc 

0378 

CALL 

FDIV  AND  RETURN  (DEHLi  MILLISECONDS 

079C 

C3 

IB 

oc 

0379 

JMP 

F 1X32 

079F 

0380  1 

079F 

0381  1  CLOSE  THE 

FILE  IN  THE  BURST  MEMORY 

079F 

0382  1 

079F 

21 

OE 

F8 

0383  FCLDSE  LX  1 

H.EMARK  WRITE ( "END-MARK* ) 

07A2 

CD 

6G 

00 

0384 

CALL 

WRITE 

07A5 

0385  « 

07A5 

CD 

70 

00 

0386 

CALL 

REWIND  REPOSITION  TAPE 

07A8 

11 

OE 

F9 

03G7 

LX1 

D, EMARK  AND  FIND  ITS  ADDRESS 

07  AB 

CD 

16 

08 

0388 

CALL 

SEARCH 

07AE 

D8 

0389 

RC 

IF  ERROR.  RETURN  NDW. 

07AF 

0390  I 

07AF 

CD 

73 

00 

0391 

CALL 

MAR6ET  ELSE  FOUND  IT. 

07B2 

22 

CC 

10 

0392 

SHLD 

ENADR  SAVE  ITS  ADDRESS 

07B5 

32 

CE 

10 

0393 

STA 

ENADR+2 

07B8 

0394  1 

07B8 

CD 

70 

00 

0395 

CALL 

REWIND  REPOSITION  TAPE 

07BB 

CD 

6A 

00 

0396 

CALL 

READ  READ  THE  FIRST  ENTRY 

07BE 

11 

OA 

B8 

0397 

LX  1 

D. SHARK  LOOKING  FOR  THE  START  MARK 

07C1 

CD 

5B 

08 

0398 

CALL 

EQ16  IF  THERE,  IT  WAS  A  SHORT  BURST 

07C4 

C2 

D5 

07 

0399 

JN7 

FSLDNG 
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07C7 

0400  1 

07C7  CD  73  00 

0401  FENDSET  CALL 

NARGET  GET  THE  TAPE  POSITION 

07CA  22  C9  10 

0402 

SHLD 

STADR  AND  SAVE  FOR  PLAYBACK' 

07CD  32  C8  10 

0403 

STA 

STADR+2 

07DO  97 

0404 

SUB 

A  SHOW  THE  BURST  FILE  CLDSED 

07D1  32  C8  10 

0405 

STA 

FILESTAT 

07D4  C9 

0406 

RET 

, 

07D5 

0407  1 

07D5  2A  CC  10 

0408  FSL0N6  LHLD 

ENADR  START  AT  THE  ENDNARKER 

07D8  3A  CE  10 

0409 

LDA 

ENADR+2 

07D8  CD  5E  00 

0410 

CALL 

NARSET 

07DE 

0411  1 

07DE  CD  CC  08 

0412 

CALL 

LNGFNT  C=LEN6TH  DF  RECORD 

07E1  4F 

0413 

NDV 

C.A 

07E2 

0414  1 

07E2  CD  49  00 

0415  FSNREC  CALL 

RECSTAT  IF  CONNAND  READY.  QUIT 

07E5  CO 

0416 

RN2 

, 

07E6  41 

0417 

NOV 

B.C  START  AT  RECORD  COUNT 

07E7  CD  6A  00 

0418  FS1REC  CALL 

READ  READ  NEXT  VALUE 

07EA  11  OC  D8 

0419 

LX1 

D.PNARK  IF  A  PAUSE  NARK; 

07ED  CD  58  08 

0420 

CALL 

EG16  DR  AN  END  NARK,  QUIT. 

07F0  CA  03  08 

0421 

JZ 

FSFND 

07F3  11  OE  F8 

0422 

LX1 

D.ENARK 

07Fo  CD  58  08 

0423 

CALL 

E616 

07F9  CA  03  08 

0424 

JZ 

FSFND 

07FC  05 

0425 

DCR 

B  ELSE  CDNT1HUE  WITHIN  RECDFD 

07FD  C2  E7  07 

0426 

JNZ 

FSIREC 

0900  C3  E2  07 

0427 

JMF 

FSNREC  DR  GET  A  NEW  RECORD 

0803 

0428  1 

0S03  79 

0429  FSFND 

NOV 

A.C  CONFUTE  PARTIAL  RECORD 

0904  90 

0430 

SUB 

B  LENGTH  IN  ORDER  TO  SKIP  IT 

0805  F5 

0431 

PUSH 

PSN 

080o  2A  CC  10 

0432 

LHLD 

ENADR  POSITION  TAPE  TD  ENDNARK 

0809  3 A  CE  10 

0433 

LDA 

ENADR+2 

090C  CD  58  00 

0434 

CALL 

NARSET 

080F  FI 

0435 

POP 

PSN 

0910  C4  47  08 

043o 

CNZ 

SKIP  SKIP(A)  WORDS  IF  fi!=0. 

0313  C3  C7  07 

0437 

JNP 

FENDSET  SET  FILE  END  TD  CLOSE 

c>816 

0438  1 

1816 

0439  1  TAPE-LIKE  FUNCTIONS 

0816 

0440  I 

0816  IE  03 

0441  SEARCH  HVI 

A, 3  NAXCNT  =  30000H 

0818  32  D4  10 

0442 

STA 

NAXCNT+2  (IWDRST  CASE  SEARCH  LENGTH) 

0818  21  00  00 

0443 

LXI 

H.O 

081E  22  D2  10 

0444 

SHLD 

NAXCNT 

0821 

0445  1 

0821  CD  49  00 

0446  SEAR1 

CALL 

RECSTAT  IF  CONNAND  RECEIVED,  QUIT 

0824  37 

0447 

STC 

i 

0825  CO 

0448 

RNZ 

i 

0826  D5 

0449  SEAR2 

PUSH 

D 
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0827  CD  6A  00 

0450 

CALL 

READ 

READ  A  VALUE  THERE 

082A  D1 

0451 

POP 

D 

082B  CD  5B  08 

0452 

CALL 

ES16 

IF  SAME  AS  WE’RE  LOOKING  FOR 

082E  C8 

0453 

RZ 

. 

QUIT 

08  2F 

0454  1 

082F  21  D2  10 

0455 

LXI 

H.MAXCNT  STOP  COUNTING  AFTER 

0832  35 

0456 

DCR 

M 

THE  MAX  COUNT 

0833  C2  26  06 

0457 

JNZ 

SEAR2 

0836  23 

0458 

INX 

H 

0837  35 

0459 

DCR 

M 

0838  C2  21  08 

0460 

JNZ 

SEAR1 

OGTB  23 

0461 

INX 

H 

083C  35 

0462 

DCR 

M 

083D  C2  21  08 

0463 

JNZ 

SEAR1 

0840  3E  02 

0464 

MV  I 

A, 2 

ERROR  IN  FILE 

0842  32  C8  10 

0465 

STA 

FILESTAT 

0845  37 

0466 

STC 

0846  C9 

0467 

RET 

0847 

0468  t 

0847  F5 

0469  SKIP 

PUSH 

PSW 

SKIP  I  RECORDS 

0848  CD  6A  00 

0470 

CALL 

READ 

064B  FI 

0471 

POP 

PSW 

084C  3D 

0472 

DCR 

A 

084D  C2  47  08 

0473 

JNZ 

SKIP 

0850  C9 

0474 

RET 

, 

0851 

0475  1 

0851  35 

0476  REF 

ADD 

L 

[HLMHU+A 

0352  6F 

0477 

MOV 

L.A 

0853  DO 

0478 

RNC 

0854  24 

0479 

I  NR 

H 

0855  C9 

0480 

RET 

0856 

0481  1 

0856  7E 

0482  LGDHL 

MOV 

A,M 

EHL  3=HEM[HL  ] 

0857  23 

0483 

INX 

H 

0858  66 

0484 

MOV 

H,M 

0859  6F 

0485 

MOV 

L,  A 

085A  C9 

0486 

RET 

085B 

0487  » 

0858  7D 

0488  E8I6 

MOV 

A,L 

COMPARE  HL  AND  DE  FOR  = 

085C  88 

0489 

CMP 

E 

0E5D  CO 

0490 

RNZ 

085E  7C 

0491 

MOV 

A ,  H 

085F  BA 

0492 

CMP 

D 

0860  C9 

0493 

RET 

, 

0861 

0494  1 

0351  7D 

0495  MARK 

MOV 

A.L 

0862  D5  00 

0496 

OUT 

0 

0864  7C 

0497 

MOV 

A,  H 

0865  D3  01 

0498 

OUT 

I 

0867  C9 

0499 

RET 
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0868  00 

V  0500  OB 

256 

ENO-OF-MODULE 

0869 

0501  1 

0869 

0502  »  VARIABLES 

0869 

0503  1 

0869 

0504  ORG 

ESMPRAM 

10C0 

0505  DURATION  OS 

4 

DURATION  OF  BURST  IN  MSEC 

10C4 

0506  FREQ  DS 

1 

OESIREO  FREQUENCY 

10C5 

0507  REALF  OS 

1 

REAL  FREQUENCY  OF  BURST  USED 

10C6 

0508  STBANK  OS 

1 

START  BANK  * 

10C7 

0509  ENBANK  OS 

1 

END  BANK  » 

10C8 

0510  1 

10C8 

0511  FILESTAT  DS 

1 

FILE  STATUS  (1=0PEN) 

10C9 

0512  STAOR  OS 

3 

START  OF  BURST 

10CC 

0513  ENADR  DS 

3 

END  OF  BURST 

10CF 

0514  TRATE  OS 

3 

TOTAL  INPUT  RATE  TO  MEMORY 

1002 

0515  MAXCNT  OS 

3 

MAXIMUM  1  SAMPLES  TO  SEARCH 

1005 

0516  BMOOE  DS 

1 

INTERNAL  MODE  (1=KEEP  A/D  ON) 

1006 

0517  SMPAREA  E8U 

4 

SAMPLE  LIST  AREA 

10D6 

0518  t 

1006 

0519  1  EXTERNAL  MOOULE  DEFINITIONS 

10D6 

0520  1 

10D6 

0521  ORG 

BIO 

0040 

0522  BIOINIT  OS 

3 

0043 

0523  GETMASK  OS 

3 

0046 

0524  SETMASK  DS 

3 

0049 

0525  RECSTAT  DS 

3 

004C 

0526  RECEIVE  DS 

3 

004F 

0527  SEND  OS 

3 

0052 

0528  AOPNR  OS 

3 

0055 

0529  SAMPLE  OS 

3 

0058 

0530  NENPNR  OS 

3 

005B 

0531  HARSET  OS 

3 

005E 

0532  8ANKSET  OS 

3 

0061 

0533  HDDESET  OS 

3 

0064 

0534  SECOND  DS 

3 

0067 

0535  05HS  OS 

3 

006A 

0536  1 

006A 

0537  READ  DS 

3 

0060 

0538  WRITE  DS 

3 

0070 

0539  REWIND  OS 

3 

0073 

0540  HARGET  DS 

3 

0076 

0541  SETVECT  OS 

3 

0079 

0542  1 

0079 

0543  ORG 

BCHP 

0A40 

0544  COMPILE  OS 

3 

0A43 

0545  1 

0A43 

0546  ORG 

BFMT 

08C0 

0547  INIFH7  DS 

3 

08C3 

0548  SETFMT  DS 

3 

08C6 

0549  AOOFMT  DS 

3 
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0550 

ADRFMT 

OS 

3 

08CC 

0551 

LN6FHT 

DS 

3 

98CF 

0552 

ENDFHT 

DS 

3 

08  D  2 

0553 

t 

08  02 

0554 

ORG 

FFP 

ocoo 

0555 

LQDFP 

OS 

3 

0C03 

0556 

STOFP 

DS 

j 

0C06 

0557 

FMUL 

DS 

3 

0CO9 

0558 

FDIV 

05 

3 

ococ 

0559 

FADD 

DS 

3 

OCOF 

0560 

FSUB 

DS 

3 

0C12 

0561 

FCMP 

DS 

3 

0C15 

0562 

FNE6 

DS 

3 

0C18 

0563 

FLT32 

DS 

3 

0C1B 

0564 

FIX32 

DS 

3 

0C1E 

0565 

FSQUA 

DS 

3 

0C21 

0566 

FSQRT 

DS 

7 

OC24 

0567 

HU21 

DS 

3 
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OOOO  0001  I 

0000  0002  I  CRRES  FLIGHT  SOFTWARE— BURST  PROGRAM  LOADER 


0000 

0003 

1  FILE 

:  BLD 

0000 

0004 

1 

0000 

0005 

BLDCODE  EQU 

0000 

0006 

1 

0000 

0007 

ORG 

0440 

C3 

46 

04 

0009 

JHP 

<“>443 

C3 

4D 

04 

0009 

JMP 

0446 

0010 

1 

0446 

21 

02 

12 

0011 

BLD1NIT  L X 1 

0449 

2’’ 

X 

12 

0012 

SHLD 

04  4C 

C9 

0013 

RET 

044D 

0014 

1 

0440 

7C 

0015 

BLDCND 

MOV 

044E 

E6 

PC 

0016 

AN  I 

0450 

CE 

BC 

0017 

CPI 

0452 

3“ 

0018 

ETC 

0453 

CO 

0019 

RNZ 

0454 

EB 

0020 

XCHG 

0i55 

7A 

0021 

MOV 

0456 

D6 

BC 

0022 

SUI 

0458 

CA 

69 

04 

0023 

JZ 

045B 

3D 

0024 

DCP 

045C 

CA 

6E 

04 

0025 

JZ 

045F 

3D 

0026 

DCF: 

0460 

CA 

73 

04 

0027 

JZ 

0463 

3D 

0023 

DCR 

04t4 

CA 

7C 

04 

0029 

JZ 

0467 

37 

0030 

3TC 

O408 

" 

0031 

FET 

0469 

0012 

1 

0469 

7E 

0033 

SADRL 

MOV 

04  6  A 

32 

00 

12 

0034 

STA 

04  6D 

ro 

0035 

FET 

0«6E 

0036 

1 

04  6E 

7B 

0037 

SADRH 

MOV 

046F 

32 

0! 

12 

0038 

STA 

0472 

C9 

0039 

FET 

0473 

0040 

1 

0473 

2A 

00 

12 

0041 

LOAD 

LHLD 

0476 

<  j 

0042 

MOV 

C477 

*.  J 

0043 

IN» 

04-B 

O') 

L  ^ 

00 

12 

0044 

SHLD 

04 ’B 

c? 

0045 

FET 

047C 

0046 

1 

04  “C 

3A 

02 

12 

0047 

JUMP 

LDA 

047R 

FE 

Am 

0043 

CFI 

0*81 

CO 

0049 

FNZ 

OBCH 

BLD 

BLD1NIT 

BLDCHC 

H. USER  POINT  THE  ADR  REGISTER 
ADR  TO  THE  USER  LOADING  AREA 


A.H  CHECK  FOR  WHICH  MEN  LOAD  CMD 

OFCH 

BLDCODE 


A.D  GET  THE  COMMAND  AGAIN 
BLDCODE  REMOVE  THE  BIAS 
SADRL  AND  COUNT  OFF  EACH  NUMBER 
A 

SADRH 

A 

LOAD 

A 

JUMP 

.  IF  UNKNOWN,  RETURN (CRY) 


A.E  SET  LOW  ADDRESS 
ADR 


A.E  SET  HIGH  ADDRESS 
ADR+I 


ADR  MEM[ADR*»]  =  VALUE 

M.E 

H 

ADR 


USER  EXECUTE  USER  PROGRAM 

OAAH  CHECK  CODE  TO  VERIFY  FROGRAM  THEFE 

IF  NOT  RIGHT.  SIGNAL  ERROR 
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0432  97 

0050 

SUB 

A 

RESET  THE  CODE 

0453  32  02  12 

0051 

STA 

USER 

0486  C3  03  12 

0052 

JNP 

USER+1 

048? 

0053  1 

0489 

0054  I  VARIABLES 

0439 

0055  t 

0489 

0056 

ORG 

BLBRAM 

1200 

0057  ADR 

DS 

n 

USER  LOAD  ADDRESS 

1202 

0058  USER 

DS 

1024 

USER  PROGRAM  LOADING  AREA 
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0000 

0000 

0000 

0000 

0000 


0001  » 

0002  I  CRRES  FLIGHT  SOFTWARE— BURST  FORMAT  ROUTINES 
0003  »  WRITTEN  BY  PETER  R  HARVEY 
0004  I  FILE  :  BFNT.A 
0005  I 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

08C0  C3  DD  08 
08C3  C3  D2  08 
08C6  C3  24  09 
08C9  C3  F3  08 
08CC  C3  1A  09 
08CF  C3  OD  09 
08D2 
0BD2 
08D2 
0BD2 

08D2  E6  OF 
08D4  32  30  10 
08D7  3E  FF 
08D9  32  31  10 
08DC  C9 
C8CD 
08DD 
C8CD 

08DD  21  33  10 
OBEO  II  A4  09 


0006  PSW  EBU  6 

OOO7  EOL  EQU  OFOH  END  OF  LIST  INDICATOR 

0008  » 


0009  1  MULTIPLEXOR  QUANTITIES 

0010  » 

0011  BZFAST 

EQU 

0 

0012  8XFAST 

EQU 

1 

0013  BYFAST 

EQU 

2 

0014  BV3 

EQU 

3 

0015  BV4 

EQU 

4 

0016  BV34 

EQU 

5 

0017  BV34AC 

EQU 

6 

0018  BV1SC 

EQU 

7 

0019  BVI2AC 

EQU 

8 

0020  BV2 

EQU 

9 

0021  BV1 

EQU 

10 

0022  BV12 

EQU 

11 

0023  BDIRECT  EQU 

12 

0024  BAGCU 

EQU 

13 

0025  BGUARD  EQU 

14 

0026  BSTUB 

EQU 

15 

0027  TESTQTY  EQU 

03FH 

0028  1 

0029 

ORG 

BFHT 

0030 

JHP 

INIFHT 

0031 

JMP 

SETFHT 

0032 

JMP 

ADDFHT 

0033 

JHP 

ADRFHT 

0034 

JHP 

LNGFHT 

0035 

JHP 

ENDFHT 

0036  I 

0037  I  SET  THE  CURRENT  FORMAT  NUMBER 
0038  I  ON  ENTRY:  A  IS  THE  FORMAT  TO  USE 
0039  t 

0040  SETFHT  ANI  15 

0041  STA  CURFHT 

0042  HVI  A, -I  SET  TO  DELETE  ON  1ST  ADDFHT 

0043  STA  INSFLA6 

0044  RET 

0045  I 

0046  I  INIT  ALL  RAH  FORMATS 
0047  I 

0048  INIFHT  LXI  H, RAHL 1ST 

0049  LXI  D.RAMDEF 
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0BE3  OE  06 

0050 

MV  1 

C, RAMDI-RAMDEF+1 

08E5 

005!  ( 

0BE5  1A 

0052  1L1 

LDAX 

0  PUT  THE  END  MARKER  INTO  MEM 

0BE6  13 

0053 

INI 

D 

03E7  77 

0054 

MOV 

M.A 

0BE8  23 

0055 

INI 

H 

ABES  00 

0056 

OCR 

C 

03EA  C2  E5  OB 

0057 

JNZ 

IL1 

Q8ED  2B 

0058 

OCR 

L 

03EE  70 

0059 

MOV 

A,L  RECORD  THE  END  OF  MEMORY  USED 

08EF  32  32  10 

0060 

STA 

RLEND 

08F2  C9 

0061 

RET 

09F3 

0062  I 

08F3 

0063  t  ADDRESS  THE  CURRENT  FORMAT 

0SF3 

0064  t  RETURNS  IHLI-ADDRESS  OF  CURRENT  FORMAT 

03F2 

0065  t 

"8F3  3A  30  10 

0066  ADRFMT 

LDA 

CURFMT  IF  LIST#  <10,  THEN  ITS  A 

08F6  FE  OA 

0067 

CPI 

10  LIST  CONTAINED  IN  RDM 

OBFB  21  7C  09 

0068 

LI  I 

H. RDML 1ST 

OBFB  DA  03  09 

0069 

JC 

AL1 

08FE  21  33  10 

0070 

LI1 

H.RAML1ST  ELSE  ITS  A  RAH  LIST 

0901  06  OA 

0071 

SU1 

10 

0903  B7 

0072  AL1 

ORA 

A 

0904  CB 

0073 

RZ 

0905  CO  00  09 

0074 

CALL 

ENDFMT  FIND  THE  END  OF  THE  LIST 

090B  23 

0075 

INI 

H  STEP  DVER  THE  END  MARKER 

0909  30 

0076 

OCR 

A  AND  REPEAT  TILL  DONE 

090A  C3  03  09 

0077 

JMP 

AL1 

0900 

0078  l 

0900  F5 

0079  ENDFMT 

PUSH 

PSH 

090E  7E 

0080  ELI 

MOV 

A,M  SEARCH  TILL  THE  END  MARKER 

090F  FE  FO 

0081 

CPI 

EDL 

0911  CA  IE  09 

0082 

JZ 

ELI 

0914  23 

0083 

INI 

H 

0915  C3  OE  09 

0084 

JMP 

ELI 

09 IB  FI 

0085  ELK 

POP 

PSH 

0919  C9 

0086 

RET 

091 A 

0087  * 

091 A 

0088  t  OBTAIN  THE  LENGTH  OF  THE  CURRENT  LIST 

091A 

0089  t 

091A  CD  F3  OB 

0090  LNGFMT  CALL 

ADRFMT  SET  THE  START  ADDRESS 

0910  50 

0091 

MOV 

E,L 

091E  CO  00  09 

0092 

CALL 

ENDFMT  AND  THE  ADDRESS  OF  THE  ENDMARK 

0921  70 

0093 

MOV 

A|L 

0922  93 

0094 

SUB 

E  RETURN  LENGTH  DF  LIST 

0*523  C9 

0095 

RET 

0924 

0096  » 

0924 

0097  t  ADD  A  DTV 

TD  THE  CURRENT  FORMAT 

0924 

0098  t  ON  ENTRY: 

A  HOLDS  THE  QTY 

0924 

0099  t 

PA6E  02 
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0924 

0100 

ADDFMT  MOV 

C ,  A 

ADD  QTY  TO  CURRENT  LIST 

0925  3A 

30 

10 

0101 

LDA 

CURFMT 

IF  ROM  FORMAT,  QUIT 

0928  FE 

OA 

0102 

CPI 

10 

092A  D8 

0103 

PC 

092B 

0104 

1 

0928  21 

31 

10 

0105 

LX  I 

H, 1NSFLAS  IF  1ST  ADD.  DELETE  ALL  THE  PEST 

092E  34 

0106 

I  NR 

M 

092F  C2 

3B 

09 

0107 

JN2 

ABEND 

0932  CD 

F3 

08 

0108 

CALL 

ADRFMT 

HL-7START  OF  THIS  FORMAT 

0935  CD 

60 

09 

0109 

ADCLR 

CALL 

DELETE 

DELETE  1  AT  A  TIME 

0938  CA 

35 

09 

0110 

JZ 

ADCLR 

09  3E 

0111 

1 

093B  CE 

F3 

08 

0112 

ABEND 

CALL 

ADRFMT 

HL-XEND  MARK  FOR  THIS  FMT 

093E  CD 

OD 

09 

0113 

CALL 

ENDFMT 

0941  "9 

0114 

MOV 

A,  C 

0942 

0115 

1 

0942 

0116 

1  INSERT  A  VALUE  AT 

[HLJ  BY  MOVING  EVERYTHING  ELSE  OVER 

0942 

0117 

1 

0942  F5 

0118 

INSERT  PUSH 

PSW 

SAVE  VALUE  AND  ADDRESS 

0943  E5 

0119 

PUSH 

H 

0944  3 A 

32 

10 

0120 

LDA 

RLEND 

SET  THE  CURRENT  RAML1ST  END 

0947  FE 

78 

0121 

CPI 

RLMAX 1256/256  IF  AT  MAXIMUM  SUIT 

0949  D2 

5C 

09 

0122 

JNC 

INS  .7 

094C  5F 

0123 

MOV 

E.A 

[DE1-)LAST  BYTE  OF  RAML1ST 

09 4 D  54 

0124 

MOV 

D.H 

094E 

0125 

1 

094E  3C 

0126 

1NR 

A 

RLEND** 

094F  32 

■»  h 

10 

0127 

STA 

RLENB 

0952 

0128 

1 

0952  1A 

0129 

1NS1 

LDAX 

D 

MOVE  LAST  ELEMENT  UP 

0953  13 

0130 

INK 

D 

0954  12 

0131 

STAX 

D 

0955  IB 

0132 

DCX 

D 

0956  IB 

0133 

DCX 

D 

0957  7B 

0134 

MOV 

A.E 

0958  BD 

0135 

CMP 

L 

0959  D2 

52 

09 

0136 

JNC 

INS1 

095C 

0137 

1 

095C  El 

0138 

1 NSX 

POP 

H 

095D  FI 

0139 

POP 

PSW 

095E  77 

0140 

MOV 

M,A 

PUT  VALUE  IN  MEMORY 

09 5 F  C9 

0141 

RET 

0960 

0142 

1 

0960 

0143 

1  DELETE  THE 

VALUE  AT  [HU 

0Qo0 

0144 

1  IF  MEM1HL3 

IS  AN  END-OF-LIST,  RETURN  HOT  ZERO 

0960 

0145 

1 

0960  7E 

0146 

DELETE  MOV 

A.M 

NEVER  DELETE  AN  END  OF  LIST 

0961  FE 

FO 

0147 

CPI 

EOL 

0963  CA 

7A 

09 

0148 

JZ 

RETNZ 

0966 

0149 

t 
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09*6  E5 

0150 

PUSH 

ri  SAVE  'Ml  SIAM  ADDRESS 

OS-jj  23 

0151  DELI 

HU 

H  HOVE  THE  VALUE  FROM  1  BEYOND 

7E 

0152 

lov 

A.M 

0969  2P 

0153 

DC1' 

H 

i.WaA  77 

0154 

MOV 

l.fi 

0968 

0155  » 

0968  25 

0156 

1N‘< 

H 

096 C  3A  32  1) 

0157 

LE'A 

RLEND  IF  RLEND  NAS  JUST  MOVED 

0C6F  PD 

0158 

CHp 

L  QUIT.  ELSE  LOOP  AROUND 

0970  C2  tf  09 

0159 

JN2 

DELI 

'.973 

0160  J 

0573  21  32  10 

0161 

L71 

H.  RLEND  RLEND— 

O'* 7 6  35 

0162 

DCF 

M 

09 77  El 

Cl  63 

EOF 

ti  RESTORE  THE  DELETE  ADDRESS 

■j9 7j3  07 

0164 

SUB 

A  RETURN  ZERO 

0975  C9 

0165 

PET 

0q7A  3C 

016c  RETNZ 

1NR 

A 

0578  C5 

C167 

RET 

05  7  C 

0168  1 

097C  OB 

.169  pqmlIST  DB 

8V12  FHTIO 

097D  FO 

0170 

B6 

EOL 

097E 

0171  4 

09 7E  03 

0172 

D3 

E VI 2  FMT41 

057F  07 

0173 

DE 

B  VI  SC 

0980  FO 

0174 

DB 

EOL 

0981 

0P5  4 

0581  OB 

0176 

DB 

BV12  FHTI2 

0982  05 

0177 

DB 

6V34 

0933  FO 

0178 

DB 

EOL 

0934 

0179  4 

0934  08 

0180 

DB 

rVl 2  FMTI3 

0935  05 

0161 

DB 

BV34 

0936  07 

0182 

DB 

BV1SC 

0967  rC 

0183 

DB 

EOL 

0*736 

0194  4 

0933  08 

0155 

DB 

BV12  FHTI4 

09 S°  05 

0186 

DB 

B734 

058A  01 

0187 

DB 

BXFhST 

0998  02 

0188 

DB 

BYFAST 

093C  00 

0185 

DB 

BZFAST 

0980  FO 

0190 

DB 

EOL 

0°3E 

0191  4 

093E  00 

0192 

DB 

BZFAST  FHT#5 

09BF  01 

0193 

DB 

BXFAST 

0990  02 

0194 

DB 

BYFhST 

0991  03 

0195 

DB 

BV3 

0992  04 

0196 

DB 

BV4 

0993  05 

0197 

DB 

BV34 

0994  04  00 

0198 

DW 

BV34AC 

0996  07 

0199 

DB 

BV1SC 

363 


UC8  SPACE  SCIENCES  LAB  12-6-! 

CRRES  FLIGHT  SOFTWARE  V2.1 


0997  08 

0200 

DB 

0998  09 

0201 

DB 

0999  OA 

0202 

DB 

09’A  OB 

0203 

DB 

099B  OC 

0204 

DB 

099C  OD 

0205 

DB 

099D  OE 

0206 

DB 

099E  OF 

0207 

DB 

099F  FO 

0208 

DB 

09A0  FO 

0209 

DB 

09A1  FO 

0210 

DB 

09A2  FO 

0211 

DB 

09A3  FO 

0212 

DB 

09A4 

0213  » 

09A4  FO 

0214  RAMDEF 

DB 

09A5  FO 

0215 

DB 

09A6  FO 

0216 

DB 

09A7  FO 

0217 

DB 

09A8  FO 

0218 

DE 

09A9  FO 

0219 

DB 

09AA 

0220  RAMDX 

EQU 

09AA  00 

V  0221 

DB 

09  A  B 

0222  1 

09AB 

0223  1  VARIABLES 

09AB 

0224  t 

09AB 

0225 

QRG 

1030 

0226  CURFMT  DS 

1031 

0227  INSFLAG  DS 

1032 

0228  RLEND 

DS 

1033 

0229  PAMLIST  DS 

1079 

0230  RLMAX 

EQU 

BV12AC 

BV2 

BV1 

BV12 

BDIRECT 

BAGCU 

BGUARD 

BSTUB 

EOL 

EOL  FMTI6 

EOL  FMTI7 

EOL  FMTI8 

EOL  FMTI9 

EOL  FHTIIO  RAH  DEFAULT  FORMATS  10-15 

EOL  FMTI11 

EOL  FMT412 

EOL  FMTI13 

EOL  FMTtl 4 

EOL  FMTtlS 

$-1 

256  END-OF-FHT 


BFMTRAM 

I  CURRENT  LJST  NUMBER 

1  INSERT  FLAG 

l  RAM  LIST  END-OF-MEMORY 

64+6 
i-l 
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oooo 

0001  1 

0000 

0002  1  CRRES  FLIGHT  SOFTWARE — BURST  COMPILER  SECTION 

oooo 

0003  »  WRIT 

TEN  BY  PETER  R  HARVEY 

oooo 

0004  1 

oooo 

0005  1  FILE  BCMP.A 

oooo 

0006  1 

oooo 

OOO7  ADC 

EQJ 

3000H  A/D  DATA 

oooo 

0008  AOCTL 

EGO 

300 I H  A/D  CONTROL 

ocoo 

0009  MEM 

EDO 

8000H  BURST  MEMORY  BANK 

oooo 

0010  TESTQTY  EQLi 

03FH  .  TEST  0TY  NUMBER 

oooo 

0011  PSW 

EQU 

6  8085  INFORMATION 

00)0 

0012  SP 

EQU 

6 

oooo 

0012  RIM 

EQU 

20H 

oooo 

0014  1 

oooo 

0015  1  VARIABLES  FOR  THE  BURST  COMPILER 

oooo 

0016  1 

oooo 

0017 

ORG 

BCMPRAM 

1090 

0013  SLPTR 

DS 

2  SAMPLE  LIST  POINTER 

1092 

0019  LPPTR 

DS 

2  LOOP  POINTER 

1094 

0020  TEST 

EQU 

SLPTR  TEST  COUNTER 

1094 

0021  RAMRTL  EDO 

$ 

1094 

0022  i 

1094 

0023  »  BURST  "S" 

COMPILER—  COMPILE  A  SAMPLE  LIST  INTO  A 

1094 

0024  1 

SAMPLE  ROUTINE. 

1094 

0025  1  ON  ENTRY: 

[ HL ] - /CODE  AREA 

1094 

0026  1 

[DEI-  LIST  TO  SAMPLE 

I  O'M 

0027  I 

C-LENGTH  OF  THE  LIST 

1091 

0028  1 

8-0  FOR  NO  DELAY  (HIGHEST  FREQUENCY) 

1094 

0029  1 

i  PCR  SOFTWARE  TIMING 

1094 

0030  1 

2  FOR  INTERRUPT  TIMING 

1094 

0031  » 

1094 

0032 

GR5 

BCMP 

0A40  CD  IS  OE 

0033  COMPILE  CALI 

.  STPUT  START  PUTTING  CODE  AT  [HU 

0A43  EB 

0034 

XCHG 

CHL I- /SAMPLE  LIST 

0A44  CD  87  OA 

0035 

CALL 

GENBEGIN  COMPILE  A  CALL  TO  IN1T 

OA47  CO  D4  OA 

0036 

CALL 

6ENTIM  GENERATE  TIMING  DELAY  (IF  HEEDED) 

0A4A 

0037  » 

0A4A  79 

0038 

MOV 

A.C  IF  THE  LENGTH  OF  THE  LIST 

0A4B  PE  03 

0039 

CPI 

3  IS  3  OR  MORE.  SAMPLE  93  THRU  QN  FIRST 

0A40  C4  73  Oh 

0040 

CNC 

CMPLIST 

0A50 

0041  t 

0A50  CO  A6  OA 

0042 

CALL 

GENSMP  GENERATE  SAMPLE  FOR  Qi 

0A53  23 

0043 

INK 

H 

0A54  79 

0044 

MOV 

A,C  IF  LENGTH  <  2.  GO  ON 

0A55  FE  02 

0045 

CPI 

2 

0A57  DA  60  OA 

0046 

JC 

CMPENO 

0A3A 

0047  1 

0A5A  CD  CB  OA 

0048 

CALL 

GENSO  GENERATE  DELAY  BETWEEN  QI  AND  02 

0A5C  CD  A6  OA 

0049 

CALL 

GENSMP  SAMPLE  02 
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OA60 

0050  » 

0A60 

CD 

EE 

OA 

0051  CMF'END 

CALL 

GENFIN  GENERATE  LOOP  CODE 

0A63 

11 

53 

OB 

0052 

LX1 

0,  ROMRTL 

CA66 

21 

94 

10 

0053 

LX1 

H, RAMRTL 

0A69 

OE 

24 

0054 

MV1 

C,  RTLEN 

)A6B 

CD 

27 

08 

0055 

CALL 

COPY 

0A6E 

2A 

90 

10 

0056 

LHLO 

SLPTR  RETURN (NEXT  AVAIL  MEMORY  AQQR) 

0A71 

87 

0057 

ORA 

A 

0A72 

C9 

0058 

RET 

0A73 

0059  1 

OA73 

0060  1  COMPILE  LIST  Q3  THRU  ON 

0A73 

0061  t 

OA73 

E5 

0062  CMPL1ST  PUSH 

H  SAVE  THE  LIST  ADORESS 

0A74 

C5 

0063 

PUSH 

8  AND  ITS  LENGTH 

OA75 

23 

0064 

I  NX 

H  STEP  PAST  THE  1ST  TWO  ELEMENTS 

0A76 

23 

0065 

1NX 

H 

OA77 

OD 

0066 

OCR 

C 

0A78 

00 

0067 

OCR 

C 

OA79 

0068  » 

0A79 

CO 

A6 

OA 

0069  CL1 

CALL 

GENSMP  GENERATE  A  SAMPLE 

0A7C 

CO 

CB 

OA 

0070 

CALL 

GENSD  AND  A  SAMPLE-QELAY 

0A7F 

23 

0071 

iNX 

H  STEP  TO  NEXT  LIST  ELEMENT 

0A80 

00 

0072 

DCR 

C 

0A81 

C2 

79 

Oh 

0073 

JNZ 

CL1 

0A84 

Cl 

0074 

POP 

8 

0A95 

El 

0075 

POP 

H 

0A86 

C9 

0076 

RET 

Oh87 

0077  1 

0A87 

0078  1  6ENSHP  -  CODE  GENERATION  ROUTINES 

0A87 

0079  1 

0A87 

0030  EQC 

EQU 

-1  END-OF-COOE 

0A87 

0081  1 

OA37 

3A 

AO 

OA 

0082  GENBEG1N  LDA 

8C1  START  8Y  LOADING  THE 

0A8A 

CD 

1C 

OB 

0083 

CALL 

PUT  FREQUENCY  CODING. 

0A80 

78 

0084 

MOV 

A.B 

0A8E 

CD 

1C 

08 

0085 

CALL 

PUT 

0A91 

00B6  * 

0A91 

11 

A2 

OA 

0087 

LX  1 

O.BEGCOOE  INSERT  THE  1N1T  ROUTINE 

0A94 

CD 

00 

OB 

0088 

CALL 

PUTN 

0A97 

E5 

0089 

PUSH 

H 

0A98 

2A 

90 

10 

0090 

LHLO 

SLPTR  THEN  RECORO  WHERE  THE  LOOP  GOES 

0A9B 

22 

92 

10 

0091 

SHLD 

LPPTR 

0A9E 

El 

0092 

POP 

H 

0A9F 

C9 

0093 

RET 

OAAO 

0094  « 

OAAO 

06 

00 

0095  BC1 

MV1 

B.O 

0AA2 

CO 

30 

08 

0096  8EGC00E  CALL 

STAR8URST 

0AA5 

FF 

0097 

08 

EOC 

0AA6 

0098  » 

0AA6 

7E 

0099  GENSMP  MOV 

A.M  IF  TEST  QTY,  USE  SPECIAL  CODE 
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0AA7 

FE 

3F 

0100 

CPI 

TESTQTY 

0AA9 

11 

C3 

OA 

0101 

Li  I 

D,  TSTCQDE 

OAAC 

CA 

OD 

OB 

0102 

JZ 

PUTN 

OAAF 

3A 

CO 

OA 

0103 

LDA 

SMPCODE  POT  THE  OPCODE 

0AB2 

CD 

1C 

OB 

0104 

CALL 

PUT 

0AB5 

7E 

0105 

MOV 

A.M  THEN  THE  CTYI2 

0AB6 

87 

0106 

ADD 

A 

0A87 

CD 

1C 

OB 

0107 

CALL 

PUT 

OABA 

3A 

c: 

OA 

0108 

LDA 

SMPCQDE+2 

OABD 

C3 

1C 

OB 

0109 

JMP 

PUT 

OACO 

2A 

00 

BO 

0110 

SMPCODE  LHLD 

MEM+ADC+O  EXAMPLE  OF  A/D  SAMPLE 

0AC3 

CA 

90 

90 

0111 

TSTCQDE  LHLD 

MEM+TEST  EXAMPLE  OF  TEST  SAMPLE 

0AC6 

2C 

0112 

1NR 

L 

GAC7 

IT 

-  i. 

90 

10 

0113 

SHLD 

TEST 

OACA 

FF 

0114 

DB 

EQC 

OACB 

0115 

1 

OACB 

0116 

1  GENERATE  SAMPLE  DELAY  (BETWEEN  SAMPLES) 

OACB 

0117 

1 

OACB 

11 

ul 

OA 

0118 

GENSD  HI 

D. SDCQDE  COPY  SOME  CODE 

OACE 

C3 

OD 

OB 

0119 

JMP 

PUTN 

0AD1 

DB 

7F 

0120 

SDCQDE  IN 

7FH  DELAY  10  CYCLES 

0AD3 

FF 

0121 

DB 

EOC 

0AD4 

0122 

1 

0AD4 

0123 

1  GENERATE  TIMING 

0AD4 

0124 

1 

0AD4 

78 

0125 

EENTJN  MOV 

A,B  GET  THE  TIMING  INFO 

0AD5 

B7 

0126 

ORA 

A  IF  NO  DELAY.  NO  CODE. 

0AD6 

CS 

0127 

RZ 

. 

0AD7 

jL‘ 

0128 

DCR 

A  IF  B=l,  SOFTWARE  DELAY 

0AD8 

n 

E9 

OA 

0129 

HI 

D. SOFTIM 

OACB 

CA 

OD 

OB 

0130 

■JZ 

PUTN 

OADE 

11 

E4 

OA 

0131 

HI 

D.INTTIM  ELSE  INTERRUPT  DELAY 

0AE1 

C3 

OD 

OB 

0132 

JMP 

PUTN 

0AE4 

0133 

1 

0AE4 

t>9 

0134 

INTT1M  MOV 

L.C  COUNT  THE  INTERRUPTS 

0AE5 

CD 

9F 

10 

0135 

CALL 

1NTDLA 

CAES 

FF 

0136 

DB 

EOC 

0AE9 

6<? 

0137 

SOFTIM  MOV 

L.C  COUNT  CYCLES 

GAEA 

CD 

94 

10 

one 

CALL 

SOFDLA 

OAED 

FF 

0139 

DB 

EOC 

OAEE 

0140 

t 

OAEE 

0141 

«  GENERATE  LOOP  END  CODE 

OAEE 

0142 

1 

OAEE 

11 

06 

OB 

0143 

GENFIN  LX I 

D.LPCODE 

0AF1 

CD 

OD 

OB 

0144 

CALL 

PUTN 

0AF4 

3A 

92 

10 

0143 

LDA 

LPPTR  FUT  THE  LOOP  ADDRESS  IN 

0AF7 

CD 

1C 

OB 

0146 

CALL 

PUT 

OAFA 

3  A 

93 

10 

0147 

LDA 

LPPTR+1 

OAcD 

CD 

1C 

OB 

0148 

CALL 

FUT 

OEOO 

11 

09 

OB 

0149 

LX  I 

D.FINCODE 
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0803 

C3 

00 

08 

0150 

JMP 

PUTN 

0806 

0151  t 

0806 

0152  LPCOGE  EQU 

4  THE  CODE  WHICH  IMPLEMENTS  A  LOOP 

0806 

02 

FF 

FF 

0153 

JNC 

EOC 

(COPY  UP  TO  THE  JNC  OPCODE) 

0B09 

C3 

48 

OB 

0154  FINCODE  JMP 

EN08URST 

080C 

FF 

0155 

D8 

EOC 

0600 

0156  1 

OBOO 

1A 

0157  PUTN 

LDAX 

0 

COPY  COOE  FROM  MEMIDEI 

080E 

FE 

FF 

0158 

CPI 

EOC 

OBIO 

CB 

0159 

R2 

0811 

CD 

IC 

08 

0160 

CALL 

PUT 

OB  14 

13 

0161 

I  NX 

0 

OBI  5 

C3 

00 

OB 

0162 

JMP 

PUTN 

0818 

0163  t 

0B18 

22 

90 

10 

0164  STPUT 

SHLD 

3LPTR 

SET  SAMPLE  LIST  POINTER 

08  IB 

C? 

0165 

RET 

0B1C 

0166  1 

081C 

E5 

0167  PUT 

PUSH 

H 

SAVE  CHLI 

0B1D 

2A 

90 

10 

0168 

LHLD 

SLPTR 

PUT  ACCUM  INTO  MEM  ht  SLPTR** 

0B20 

77 

0169 

MOV 

M ,  A 

0821 

23 

0170 

INX 

H 

0B22 

22 

90 

10 

0171 

SHLD 

SLPTR 

0B25 

El 

0172 

POP 

H 

0B26 

C9 

0173 

KET 

OB  2  7 

0174  ! 

0B27 

1A 

0175  COPY 

LOAX 

D 

0B28 

77 

0176 

MOV 

M.A 

0829 

1  '■ 

0177 

INX 

D 

0B2A 

23 

0178 

INX 

H 

0B2B 

OD 

0179 

DCR 

C 

0B2C 

C2 

27 

OB 

0180 

JNZ 

COPY 

0B2F 

C9 

0181 

RET 

0B30 

0182  1 

0B30 

0183  1  THE 

S  COMPILER'S  RUN  TIME  LIBRARY 

0B30 

0184  1  (SEE  ABOVE  FOR  RESTART  1  AND  2) 

0830 

0185  « 

0B30 

0186  «  STARBURST 

INITIALIZES  THE  SYSTEM  SO  THAT  THE  COMPILEO 

0830 

0187  1  SAMPLING  ROUTINE  ALWAYS  WORKS. 

^830 

0188  < 

OB30 

0189  STAR8URST  EQU  $ 

0B30 

3E 

01 

0190 

MVI 

A, I 

SET  MEMORY  FOR  AUTOWRITE 

0832 

CD 

61 

00 

0191 

CALL 

MODESET 

0835 

3E 

03 

0192 

MVI 

A, 3 

SET  A/0  FOR  AUTO-CONVERT 

0837 

32 

01 

30 

0193 

STA 

AOCTL 

083A 

21 

00 

00 

0194 

LXI 

H,  0 

START  TEST  COUNTER  AT  0 

0B3D 

22 

90 

10 

0195 

SHLO 

TEST 

0840 

3E 

01 

0196 

MVI 

A, I 

SET  I/O  MODE  TO  SET  CARRY 

0B42 

CO 

79 

00 

0197 

CALL 

IOMOOE 

WHEN  COMMANO  PENDING 

0B45 

FB 

0198 

El 

a 

ALWAYS  KEEP  COMMANO  INPUT  (7.5)  ENABLED 

OB  46 

3A 

90 

10 

0199 

LOA 

8CMPRAM  REFERENCE  RAM  FOR  LOW  FOWER 
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OB*?  BT 

0200 

ORA 

a  clear  carry 

OB 4 A  C? 

0201 

RET 

0B4B 

0202 

t 

05 4 B  97 

0203 

ENDBURST  SUB 

A  REMOVE  COMMAND-FENDINi 

0B4C  CO  T9 

00 

0204 

CALL 

ICMGDE  STATUS  RETURN 

■P4F  97 

0205 

SUB 

A  CLEAR  AUTOHRITE  MODE 

0250  C3  61 

00 

0206 

■IMP 

MODESET 

025  > 

0207 

« 

0B53 

02C5 

>  THE  DELAY  ROUTINES 

OB  5  : 

0209 

< 

0B5C 

0210 

ROMRTL  ESU 

$ 

(057 

0211 

SOFtLA  EQU 

RAMF.TL 

0553  CB 

0212 

E! 

CB54  2D 

0213 

OCR 

L 

0255  C8 

0214 

FI 

0E54  DB  7F 

0215 

IN 

7'H 

0B5S  00 

0216 

NOP 

-3B59  00 

0217 

NOR 

055A  D2  94 

10 

0215 

JNC 

SOFDLA 

CB5B  C5 

0219 

RET 

0E5E 

0220 

1 

0E5E 

0221 

INTGLA  ESU 

t-ROMRTL+RAMRTL 

0B5E  C4  A7 

10 

0222 

CNC 

INTWAIT 

0361  2D 

0223 

OCR 

L 

0362  C2  9F 

10 

0224 

JNZ 

1NTDLA 

OB 2 5  C5 

022! 

RET 

0B66 

0226 

4 

0B66 

0227 

INTWAIT  EQU 

$-ROMRTL+RAMRTL 

OB 66  F3 

0228 

DI 

0567  F3 

0229 

FUSH 

PSW 

OB  SB  06  20 

0230 

MV  1 

B,20H 

0B6A 

0231 

1NH  ESU 

4-RQMRTL+RAMRTL 

0E6A  20 

0232 

DB 

RIM 

OB 6 5  AO 

0233 

ANA 

B 

0B6C  C2  AB 

10 

0234 

JNZ 

IWH 

0B6F 

0235 

« 

0B6F 

0236 

IWL  ESU 

4-ROflRTL+RAMRTL 

0B6F  20 

0237 

OB 

RIM 

0B70  AO 

023B 

ANA 

B 

0B7 1  CA  BO 

10 

0239 

JZ 

IWL 

0B74  F1 

0240 

POP 

PSW 

0B75  FB 

0241 

El 

0B76  CS 

0242 

RET 

OB  77 

0243  RTLEN  ESU 

i-ROMRTL 

0B77  00 

V  0244 

DB 

256  END-OF-BCMP  MODULE 

OB7B 

0245 

t 

0B7B 

0246 

1  EXTERNALS 

0B7B 

0247 

1 

0B7B 

0248 

0R6 

BIO 

0040 

0249  BIQINIT  DS 

3 
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00*3 

0250  6ETNASK  DS 

3 

0046 

0251  SETMASK  BS 

3 

0049 

0252  RECSTAT  DS 

3 

004C 

0253  RECEIVE  DS 

3 

004F 

0254  SEND  DS 

T 

0052 

0255  ADPWR  DS 

3 

0055 

0256  SAHPLE  DS 

3 

0058 

0257  MEHPWR  DS 

3 

0058 

0258  HAPSET  DS 

3 

005  E 

0259  BANKSET  DS 

3 

0061 

0260  HODESET  DS 

3 

0064 

0261  SECOND  DS 

3 

0067 

0262  D5HS  DS 

j 

00 6  A 

0263  READ  DS 

7 

006D 

0264  WRITE  DS 

3 

0070 

0265  REWIND  DS 

7 

0073 

0266  HARGET  DS 

3 

0076 

0267  SETVECT  DS 

3 

0079 

0268  IOMODE  DS 

3 
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0000 

0001  t 

0000 

0002  1  CRKES  FLIGHT  SOFTWARE— FAST  FLOATING  POINT 

0000 

0003  t  WRITTEN  BY  FETER  HARVEY 

0000 

0004  1  FILE  :  BFFP.A 

0000 

0005  « 

oooo 

0006  1  F.F, 

,  REGISTER  IS  CDE. 

0000 

0007  1  FORMAT  IS  SI GN (!) +EXP ( 7 ) +MANT I SSA U c i 

oooo 

0008  »  NO  HIDDEN 

BIT 

0000 

000?  1 

oooo 

0010  PSK 

ESI) 

6 

oooo 

001!  SP 

EQU 

6 

oooo 

0012  * 

oooo 

0013 

ORG 

FFP 

OCOO  C3 

27  OC 

0014 

JHP 

LODFP 

0C03  C3 

2D  OC 

0015 

JMP 

STOFP 

DC  06  C3 

33  OC 

0016 

jup 

FMUL 

OCO?  C3 

5E  OC 

0017 

JMF 

FDIV 

OCOC  C3 

F2  OC 

0018 

JHP 

FADD 

OCOF  C3 

EB  OC 

001? 

•HIP 

FSUE 

OC 12  C3 

DC  OC 

0020 

JMF 

FCMF 

0CI5  C3 

45  OC 

0021 

JMP 

FNEG 

0CI8  C3 

62  OD 

0022 

JMF 

FLT32 

0C1B  C3 

DO  OD 

0023 

JMP 

FIT32 

0C1E  C3 

26  OE 

0024 

JMP 

FSQIJfi 

O' 21  C3 

2F  OE 

0025 

JMP 

FSQRT 

0C24  C3 

50  OE 

0026 

JMP 

MU21 

0C27 

0027  t 

0C27  4E 

0023  LODfP 

MOV 

C.M 

0C2S  23 

0029 

INK 

H 

0C2S  56 

0030 

MOV 

D.M 

3C2A  23 

0031 

INK 

H 

OCIB  5E 

0032 

MOV 

E.M 

0C2C  C9 
0C2D 

0033 

0034  1 

RET 

• 

0C2D  71 

0035  STOFF 

MOV 

H.C 

0C2E  23 

0036 

INK 

H 

0C2F  72 

0037 

MOV 

H.D 

0C30  23 

0038 

INK 

H 

0C3!  73 

0039 

MOV 

M.E 

OC32  C9 

0040 

RET 

, 

0C33 

0041  1 

OCT  3 

0042  1  F.F. 

MULTIPLY  ROUTINE 

0C33 

0043  1 

OCT 3  7A 

0044  FHUL 

MOV 

A, D  IF  X-0.  QUIT  NOW 

OCT 4  B7 

0045 

OP.A 

A 

0C35  CS 

0046 

RZ 

, 

0C36  46 

0047 

MOV 

E.M  LOAD  FARAH  FROM  MEM 

OCT 7  23 

0043 

INK 

H  INTO  BHL  FORMAT 

0C33  7E 

0049 

MOV 

A.M 
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0C39  87 

0050 

ORA 

A 

IF  ZERO  THEN  SET  TO  0 

0C3A  CA  C3  OD 

0051 

JZ 

RETO 

0C3D  23 

0052 

INK 

H 

ELSE  LOAD  THE  REST 

0C3E  6E 

0053 

MOV 

L,M 

0C3F  67 

0054 

MOV 

H.A 

0C40 

0055  1 

OC40  78 

0056  FMS33 

(10V 

A, 8 

IF  SAME  SIGN.  GO 

0C41  A1? 

0057 

IRA 

C 

0C42  F2  SO  OC 

0058 

JP 

FMU33 

0C45  CD  D4  OC 

0059 

CALL 

STRIP 

REMOVE  SIGNS  FROM  BiC 

0C48  CD  50  OC 

0060 

CALL 

FMU33 

MULTIPLY  THEN  NEGATE 

0C4B 

0061  1 

0C4B 

0062  FNEG 

EQU 

* 

0C4B  79 

0063  NEGFP 

mov 

A.C 

AND  NEGATE  F.P 

0C4C  EE  80 

0064 

KRI 

8  OH 

0C4E  4F 

0065 

MOV 

C.A 

0C4F  C9 

0066 

RET 

. 

0C50 

0067  1 

0C50 

0068  1  F.P. 

MULTIPLY  POSITIVES  ONLY 

OCSO 

0069  t 

OCSO  78 

0070  FHU33 

MOV 

A.B 

ADD  EXPONENTS 

0C51  81 

0071 

ADD 

C 

0C52  D6  40 

0072 

SUI 

4  OH 

ADJUST  BACK  TO  EICESS  64 

0C54  FA  C9  OC 

0073 

JM 

ERCHK 

IF  MINUS.  CHECK  THE  ERROR 

OC57  4F 

0074 

MOV 

C.A 

0C58  CD  43  OE 

0075 

CALL 

MU22F 

CAHL. ]=  DE  I  HL 

0C5B  C3  A F  OD 

0076 

JNF 

NCHK 

SHIFT  UNTIL  AHL  NORMED. ROUND  1 

0C5E 

0077  1 

0C5E 

0078  1  F.P. 

DIVIDE 

0C5E 

0079  1 

0C5E  7A 

0080  FDIV 

MOV 

A.D 

IF  ZERO  DIVIDEND.  QUIT 

0C5F  B7 

0081 

ORA 

A 

0C60  CB 

0082 

RZ 

. 

0C61  46 

0083 

MOV 

B,M 

PICK  UP  DIVISOR 

0C62  23 

0084 

INI 

H 

0C63  7E 

0085 

MOV 

A.M 

0C64  B7 

0086 

ORA 

A 

IF  DIVISOR  0.  OVERFLOW 

0C65  CA  CE  OD 

0087 

JZ 

OVERFLOW 

0C6B  23 

0088 

INI 

H 

0C69  6E 

0089 

MOV 

L.M 

0C6A  67 

0090 

MOV 

H.A 

0C6B 

0091  t 

0C6B  78 

0092 

MOV 

A.B 

IF  SAME  SIGN.  DO 

0C6C  A9 

0093 

IRA 

C 

SAME  SIGNED  VERSION 

0C6D  F2  79  OC 

0094 

JP 

FDU33 

OC70  CD  D4  OD 

0095 

CALL 

STRIP 

REMOVE  SIGNS 

0C73  CD  79  OC 

0096 

CALL 

FDU33 

DIVIDE  OUT 

0C76  C3  4B  OC 

0097 

JMP 

NEGFP 

AND  NEGATE 

0C79 

0098  1 

0C79  79 

0099  FDU33 

MOV 

A.C 

EIP=C-B+40H 

PAGE  02 
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0C7A  90 

0100 

SUB 

B 

0C7B  Co  40 

010! 

ADI 

40H 

0C7D  FA  C9  OB 

0102 

JM 

ERCHK 

OCBO  4F 

0103 

MOV 

C.A 

0CB1  C5 

0104 

FUSH 

B 

SAVE  EXPONENT 

0C32 

0105  1 

0C32  7C 

0106 

MOV 

A.H 

BC=-BI VISOR 

ocs:  2F 

0107 

CMA 

0CS4  47 

0109 

MOV 

E.A 

0CS5  7D 

0109 

MOV 

A.L 

0C36 

0110 

CMA 

0C67  4F 

0111 

MOV 

C.A 

OCBB  03 

0112 

INK 

B 

0CB9 

0113  1 

0CB9 

0114  1 

IF  THE  REMAINDER  STARTS  AS  LARGE  AS 

0C69 

0115  1 

THE  DIVISOR.  THE  FIRST  BIT  IS  1 

OCS  9 

0116  1 

0C89  62 

OIP 

MOV 

H.D 

HL=REMAINBER 

OCBA  6B 

0116 

MOV 

L.E 

OCBB  09 

0119 

DAD 

E 

HL=REMAINDER-DI VISOR 

0C8C  BA  A9  OC 

0120 

JC 

FBITI 

0C8F 

0121  1 

OCBF 

0122  1 

IF  REMAINDER  LESS  THAN  DIVISOR.  THE  FIRST 

OCBF 

0123  1 

BIT  (INTEGER  PART; 

IS  ZERO.  DIVIDE  FOR 

0C8F 

0124  1 

FRACTIONAL  FART  WHICH  HILL  BE  AUTOMATICALLY 

OCBF 

0125  1 

NORMALIZED. 

OCBF 

0126  » 

OCBF  EB 

0127 

KCHG 

, 

HL=REMAINDER  AGAIN 

0C90  3E  10 

012B 

MV  I 

A, 16 

OC92  CO  C2  OC 

0129 

CALL 

FDSHF 

[DEMHLJI2/IBC] 

0C95  29 

0130 

DAD 

H 

IF  REMAINDER)B000H 

0C96  BA  OF  OC 

0131 

JC 

DVROND 

THEN  ROUND  UP 

0C99  09 

0132 

DAD 

B 

IF  NEXT  BIT  WOULD  BE  1 

0C9A  DA  9F  OC 

0133 

JC 

DVROND 

THEN  ROUND  UP 

0C9D  Ci 

0134 

POP 

B 

RESTORE  EXPONENT 

0C9E  C9 

0135 

RET 

t 

NO  NORMALIZATION  REBD 

0C9F 

0136  * 

0C9F  Cl 

0137  DVRQND  POP 

B 

C=EXPONENT 

OCAO  1C 

0139  ROND  1NR 

E  ROUND  OFF  DE 

0CA1  CO 

0139 

RNZ 

, 

BUT  DON’T  PRODUCE 

0CA2  14 

0140 

I  NR 

D 

A  ZERO 

OCAS  CO 

0141 

RNZ 

, 

0CA4  11  00  BO 

0142 

LXI 

C.BOOOH  IF  ZERO,  THEN 

0CA7  OC 

0143 

I  NR 

C 

UP  THE  EXPONENT 

OCAB  C9 

0144 

RET 

, 

0CA9 

0145  1 

0CA9 

0146  1 

FIRST  Bl T= 1 .  DIVIDE  OUT  16  MORE  BITS 

0CA9 

0147  1  USING  WHAT' 

S  LEFT  OF  THE  REMAINDER  IN  HL 

0CA9 

0148  » 

0CA9  3E  10 

0149  FBIT1  MV  I 

A. 16 
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OCAB  11  FP 

FF 

0150 

LX1 

D.-l 

OCAE  CD  C2 

OC 

0151 

CALL 

FDSHF 

CBE]=CHL3/CBC3 

0CB1 

0152  * 

0CB1  Cl 

0153 

POP 

B 

RESTORE  THE  EXPONENT 

OCB  2  OC 

0154 

INK 

C 

ADJUST  SINCE  1ST  BIT=1 

ocb:  37 

0155 

SIC 

, 

RIGHT  SHIFT  A  1  INTO  DE 

0C64  7A 

0156 

MOV 

A,  D 

0CB5  IF 

0157 

RAR 

0CB6  57 

0158 

MOV 

D.A 

OCB 7  7B 

0159 

MOV 

A.E 

OCBB  IF 

0160 

PAR 

0CB9  5F 

0161 

MOV 

E ,  A 

OCBA  DO 

0162 

PNC 

, 

IF  17TH  BIT  WAS  0.  STOP 

OCBB  C3  AO 

OC 

0163 

JMP 

ROND 

ELSE  ROUND  OFF 

OCBE 

0164  » 

OCBE 

0165  »  DIVIDE  NORMALIZED 

INTEGERS  FOR  F.P. 

OCBE 

0166  1 

OCBE  33 

0167  FDSTK 

1NX 

SP 

REMOVE  PARTIAL  REMAINDER 

OCBF  33 

0168 

1NX 

SP 

from  stack: 

OCCO  3D 

0169  FDTST 

DCR 

A 

DECR  BIT  COUNTER 

0CC1  CB 

0170 

PZ 

. 

0CC2  29 

0171  FDSHF 

DAD 

H 

BRING  DOWN  A  BIT  INTO  REM 

0CC3  DA  D4 

OC 

0172 

JC 

SUB  1 7 

IF  >=10000,  THEN  SUBTRACT 

0CC6  EB 

0173 

XCHG 

, 

0CC7  29 

0174 

DAD 

H 

AND  SHIFT  RESULT  REG 

0CC8  EB 

0175 

XCHG 

0CC9 

0176  1 

0CC9  1C 

0177 

1NR 

E 

ASSUME  RESULTS 

OCCA  E5 

01 7B  FDV22 

FUSH 

H 

SAVE  REMAINDER  ON  STK 

OCCB  09 

0179 

DAD 

B 

IF  REHCBIV1S0R, LEAVE  REM  ALONE 

OCCC  DA  BE 

OC 

0180 

JC 

FDSTK 

CCCF  El 

0181 

POP 

H 

ELSE  RESTORE  REMAINDER 

OCDO  ID 

0182 

DCR 

E 

SET  RESULT  BIT=0 

0CD1  C-3  CO 

OC 

0183 

JMP 

FDTST 

0CD4 

018*  | 

0CD4  EB 

0185  SUB1T 

XCHG 

, 

FlNLn  THE  SHIFT 

0CD5  29 

0186 

DAD 

H 

0CD6  EB 

0187 

XCHG 

, 

0CD7  09 

0138 

DAD 

B 

SUBTRACT  DIVISOR 

0CD8  1C 

0189 

INR 

E 

SET  RESULT  BIT 

0CD9  C3  CO 

OC 

0190 

JMP 

FDTST 

OCDC 

0191  I 

OCDC 

0192  1  F.P. 

COMPARE 

OCDC 

0193  t  GN  EXIT:  Z 

ERO  SET 

IF  EQUAL.  CARRY  IF  LESS  THAN 

OCDC 

0194  l 

CDE  UNTOUCHED 

OCDC 

0195  1 

OCDC  C5 

0196  FCMP 

PUSH 

B 

SAVE  CDE 

OCDD  D5 

0197 

PUSH 

D 

OCDE  CD  EB 

OC 

oi^a 

CALL 

FSUB 

SUBTRACT  THE  TWO 

0CE1  'A 

0199 

MOV 

A.D 

IF  RESULTS,  RET 
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0CE2 

B7 

0200 

ORA 

A 

0CE5 

CA  ES  OC 

0201 

JZ 

FCMPX 

0CE6 

7? 

0202 

MOV 

A.C 

0CE7 

07 

0203 

RLC 

, 

OCEB 

Bi 

0204  FCMPX 

POP 

C 

0CE9 

Cl 

0205 

FOP 

E 

OCEA 

C9 

0206 

RET 

. 

OCEB 

0207  « 

OCEB 

0208  »  F.P. 

SUB 

OCEB 

0209  » 

OCEB 

"T 

0210  FSUB 

MOV 

A.M 

OCEC 

EE  80 

0211 

XP1 

BOH 

OCEE 

47 

0212 

MOV 

B.A 

OCEF 

C3  F3 

OC 

0213 

3  HP 

FAD1 

0CF2 

0214  » 

0CF2 

0215  1  F.p. 

ADD 

0CF2 

0216  1 

0CF2 

46 

02 i 7  FADD 

MOV 

B.M 

OCFJ 

£  \ 

0218  FAD1 

1NX 

H 

0CF4 

7E 

0219 

MOV 

A.M 

0CF5 

Lj 

0220 

INX 

H 

0CF6 

6E 

0221 

MOV 

L.M 

vCF  7 

67 

0222 

MOV 

H,A 

0CF3 

97 

0223 

SUB 

A 

OCF? 

BC 

0224 

CMP 

H 

OCFA 

C8 

0225 

RZ 

, 

OlFB 

BA 

022a 

CMP 

D 

OCFC 

CA  5F 

OD 

0225 

JZ 

SWITCH 

OCFF 

0228  1 

OCFF 

79 

0229 

MOV 

A.C 

ODOO 

’0 

0230 

SUB 

B 

<001 

87 

0231 

ADD 

A 

0C02 

F2  OB  OD 

0232 

JP 

POSDX 

■D05 

7S 

0233 

MOV 

A.B 

0D06 

41 

0234 

MOV 

B.C 

0D07 

4F 

0235 

MOV 

C.A 

0D08 

EB 

0236 

XCHG 

, 

ODOR 

90 

0237 

SUB 

B 

ODOA 

87 

0238 

ADC 

A 

ODOB 

CA  15 

OD 

0239  P35BX 

JZ 

ADSUB 

ODOE 

OF 

0240 

PRC 

. 

ODOF 

FE  10 

0241 

CPI 

16 

ODil 

DO 

0242 

RNC 

•I'D  1 2 

CD  47 

OC 

0243 

CALL 

SHFHL 

GDIS 

0244  1 

0815 

73 

0245  ADSUB 

MOV 

A.B 

0D16 

A9 

0246 

XRA 

C 

GDI? 

FA  25 

OD 

0247 

JM 

DIFFER 

0D1A 

19 

0248 

DAD 

D 

0018 

EB 

02*9 

XCHG 

IF  NEGATIVE.  THEN 
SET  CARRY..  ELSE  NO  CARRY 
RESTORE  CDE 


INVERT  SIGN  OF  2ND 
PARAMETER 

LOAD  UP 

IF  BHL=0,  SUIT 
IF  CDE-O,  QUIT 

COMPUTE  EXP  DIFFERENCE 

SWAP  CDE  FOR  BHL 

CONFUTE  EXP  DIFFERENCE 
AGAIN 

DIV  BY  2 

IF  CDE »BHL.  SUIT 
REDUCE  HL  A  TIMES 
IF  SIGNS  DIFFER.  GO 

ADD  DE  TO  HL 
IF  NO  CARRY, 
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0D1C  DO 

0250 

RNC 

. 

RETURN  CDE 

0D1D 

0251  « 

0D1D  7A 

0252  RITE1 

MOV 

A ,  D 

ELSE  SHIFT  RIGHT  ONE 

0D1E  IF 

0253 

RAR 

. 

INCLUDING  THE  CARRY 

0D1F  57 

0254 

MOV 

D,A 

0D20  78 

0255 

MOV 

A.E 

0D21  IF 

0256 

RAR 

0D22  5F 

0257 

MOV 

M 

OD23  OC 

0258 

I  NR 

C 

ADJUST  EXPONENT 

0D24  C9 

0259 

RET 

, 

0D25 

0260  « 

0D25  n 

0261  DIFFER  MOV 

«,E 

IF  DECHL, 

0D26  95 

0262 

SU8 

L 

THEN  NORM (B: HL-DE) 

0D27  7A 

0263 

MOV 

A,  D 

0D28  9C 

0264 

SBB 

H 

0D29  DA  3A  OD 

0265 

JC 

SU8D 

0D2C 

0266  « 

0D2C  57 

0267 

MOV 

D,A 

ELSE  NORM(C: DE-HL) 

0D2D  7B 

0268 

MOV 

A.E 

0D2E  95 

0269 

SUB 

L 

0D2F  5F 

0270 

MCV 

E.A 

0D30  21  00  00 

0271 

LX  1 

H.O 

0D33  B2 

0272 

ORA 

D 

IF  DEOO, 

0D34  C2  74  OD 

0273 

JNZ 

NORM 

NORMALIZE  WITH  C 

0D37  OE  00 

0274 

MV1 

C,0 

IF  HL-DE=0,  RETURN 

0D39  C? 

0275 

RET 

, 

0D3A 

0276  1 

0D3A  7D 

0277  SUED 

MOV 

A.L 

DE  =  DE  -  HL 

0D3B  93 

0278 

SUB 

E 

0D3C  5F 

0279 

MOV 

E.A 

0D3D  7C 

0280 

MOV 

A,  H 

0D3E  9A 

0281 

SBB 

D 

0D3F  57 

0282 

MOV 

D.A 

0D40  48 

0283 

MOV 

C.B 

USE  BHL’S  EXPONENT 

0D41  21  00  00 

0284 

LX1 

H.O 

AND  SHIFT  IN  ZEROES 

0D44  C3  74  OD 

0285 

JMP 

NORM 

NORMALIZE 

0D47 

0286  t 

0D47 

0287  1  SHIFT  HL  RIGHT  A  TIMES 

0D47 

0288  1 

0D47  D6  08 

0289  SHFHL 

SUI 

8 

IF  LT  8,  GO  NOW 

0D49  DA  52  OD 

0290 

JC 

LT8 

0D4C  6C 

0291 

MOV 

L.H 

SHIFT  8 

0D4D  26  00 

0292 

MVI 

H,  0 

0D4F  C8 

0293 

RZ 

, 

IF  EXACTLY  8,  RETURN 

0D50  D6  08 

0294 

SUI 

8 

ELSE  DO  SECOND  8 

0D52  C5 

0295  LT8 

PUSH 

B 

SAVE  EXPONENTS 

0D53  47 

0296 

MOV 

8,  A 

SAVE  INVERTED  COUNTER 

0D54  97 

0297 

SUB 

A 

CLEAR  ACCUM 

0D55  29 

0298  SHF1 

DAD 

H 

SHIFT  LEFT 

0D56  8F 

0299 

ADC 

A 

INTO  A  FROM  HL 
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0B57  04 

0300 

I  NR 

B 

COUNT  UP  TO  0 

0D5B  C2  55  OD 

0301 

JNZ 

SHF1 

0D5B  Cl 

0302 

POP 

B 

RESTORE  EXPS 

0D5C  6C 

0303 

MOV 

L,H 

0050  67 

0304 

MOV 

H.A 

0D5E  C9 

0305 

RET 

, 

0D5F 

0306  t 

0D5F  EB 

0307  SNITCH  XCHG 

, 

CDE=  BHL 

OB 60  48 

030B 

MOV 

C.B 

0061  C9 

0309 

RET 

, 

0062 

0310  I 

0062 

0311  *  CONVERT  32  BIT  DATA  TO  F.P.  FORMAT 

0062 

0312  1 

0062  7A 

0313  FLT32 

MOV 

A.O 

IF  POSITIVE,  JUST  NORM 

0063  B7 

0314 

ORA 

A 

0064  OE  60 

0315 

MV  I 

C, 64+32  WITH  LSB=2»»0  TO  BEGIN 

0066  F2  74  00 

0316 

JP 

NORM 

0069  CD  BC  OE 

0317 

CALL 

NEG32 

NEGATE  DEHL 

006C  CO  74  00 

0318 

CALL 

NORM 

NON  NORMALIZE 

0D6F  79 

031<? 

MOV 

A,  C 

AND  NEGATE  FP 

0070  F6  BO 

0320 

DRI 

80H 

0072  4F 

0321 

MOV 

C ,  A 

0P73  C9 

0322 

RET 

• 

0074 

0323  1 

0074 

0324  »  NORMALIZE  C:DEHL  TO  F.P.  NORMAL  FORM 

0074 

0325  1 

0074  79 

0326  NORM 

MOV 

A.C 

IF  C  NEGATIVE,  TRAP  IT 

0075  B7 

0327 

ORA 

A 

0076  F2  82  00 

0328 

JP 

NORMP 

0079  E6  7F 

0329 

AN  I 

7FH 

007 B  4F 

0330 

MOV 

C.A 

0D7C  CO  82  00 

0331 

CALL 

NORMP 

0D7F  C3  4B  OC 

0332 

JMP 

NEGFP 

AND  NEG  LATER 

0DB2 

0333  * 

0092  7A 

0334  NDRMP 

MOV 

A.O 

IF  WITHIN  B  BITS,  GO  NON 

0DB3  B7 

0335 

ORA 

A 

0084  C2  AC  00 

0336 

JNZ 

N0RM1 

0087  B3 

0337 

ORA 

E 

IF  WITHIN  16,  USE  EHL 

0088  C2  A1  00 

033B 

JNZ 

NRMEHL 

ODBC  B4 

0339 

ORA 

H 

IF  WITHIN  24.  USE  HL 

ODBC  C2  9B  00 

0340 

JNZ 

NRMHL 

ODBF  B5 

0341 

ORA 

L 

IF  JUST  L.  USE  IT 

0090  C2  95  00 

0342 

JNZ 

NRML 

0093  4A 

0343 

MOV 

C.B 

ELSE  CDE=0 

0094  C9 

0344 

RET 

. 

0095 

0345  1 

0095  55 

0346  NR ML 

MOV 

D.L 

LOO  FOR  3  BYTES 

0096  06  IB 

0347 

MV  I 

B,  24 

ADJUST  EXP  BY  24  BITS 

0Dq8  C3  A6  00 

034B 

JMP 

AJEXP 

0D9B  EB 

0349  NRMHL 

XCHG 

t 

HLO  FDR  3BYTES 
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ODQC  06 

10 

0350 

MV  I 

8,16 

ADJUST  EXP  16 

009E  C3 

A6 

OD 

0351 

JMP 

AJEXP 

0DA1  53 

0352  NRMEHL  MOV 

D,E 

SHIFT  EHL  TO  DEH 

0DA2  5C 

0353 

MOV 

£>H 

OOA3  65 

0354 

MOV 

H.L 

0DA4  06 

08 

0355 

MV  I 

3,3 

ADJUST  B  8ITS 

0DA6  79 

0356  AJEXP 

MOV 

A,C 

EXP=EXP-B 

OOA7  90 

0357 

SUB 

B 

OOA8  4F 

0358 

MOV 

C.A 

IF  PROBLEM,  THEN  UNDER 

0DA9  DA 

C3 

OD 

0359 

JC 

UNDERFLOW 

ODAC 

0360  1 

GDAC 

0361  1  BIT  BY  BIT  NORMALIZATION 

ODAC 

0362  1 

ODAC  7A 

0363  N0RM1 

MOV 

A,  D 

AHL=DEH 

ODAD  6C 

0364 

MOV 

L.H 

ODAE  63 

0365 

MOV 

H*E 

ODAF  B7 

0366  NCHK 

ORA 

A 

SHIFT  AHL  TILL  NORMED 

ODBO  FA 

B9 

OD 

0367 

JM 

NRMFIN 

0DB3  OD 

036B  NCHK1 

DCR 

C 

EXP<-EXP-1 

0DB4  29 

0369 

DAD 

H 

0DB5  8F 

0370 

ADC 

A 

0DB6  F2 

B3 

OD 

0371 

JP 

NCHK1 

0D89  57 

0372  NRHFIN 

MOV 

D,A 

DE=AH 

ODBA  5C 

0373 

MOV 

E,H 

ODBB  7D 

0374 

MOV 

A.L 

IF  MSB (L) =1 ,  ROUND  OFF  DE 

ODBC  07 

0375 

RLC 

, 

ODBD  DC 

AO 

OC 

0376 

CC 

ROND 

ODCO  79 

0377 

MOV 

A,C 

IF  EXP  POSITIVE,  OX 

0DC1  87 

0378 

ORA 

A 

0DC2  FO 

0379 

RP 

• 

0DC3 

03B0  1 

0DC3 

0381  1  ERRORS  :  UNDERFLOW 

AND  OVERFLOW 

0DC3 

03B2  1 

0DC3 

0383  UNDERFLOW  EQU  t 

0DC3  OE 

00 

03B4  RETO 

HVI 

C,0 

RETURN  CDE=0 

0DC5  11 

00 

00 

0385 

LX  I 

D,0 

0DC8  C9 

0386 

RET 

• 

0DC9 

0387  1 

0DC9  FE 

CO 

0388  ERCHK 

CPI 

OCOH 

IF  BETWEEN  080H  AND  OBFH 

GDC8  02 

C3 

OD 

0389 

JNC 

UNDERFLOW  THEN  UNDERFLOW,  ELSE  1 

ODCE 

0390  1 

ODCE  OE 

7F 

0391  OVERFLOW  HVI 

C,7FH 

RETURN  CDE=MAXIMUM 

ODDO  11 

FF 

FF 

0392 

LXI 

o,-i 

0DD3  C9 

0393 

RET 

a 

0DD4 

0394  1 

0DD4  7B 

0395  STRIP 

MOV 

A,B 

REMOVE  SI6NS  FROM  B 

0DD5  E6 

7F 

0396 

AN  I 

7FH 

0DD7  47 

0397 

MOV 

3, A 

0DD8  79 

0398 

MOV 

A,C 

0DD9  E6 

7F 

0399 

ANI 

7FH 
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ODDB  4F 

0400 

NOV 

C,  A 

ODDC  C9 

0401 

RET 

, 

ODOD 

0402  1 

ODDD 

0403  4  F1X32:  FLT  TD  FIX  CONVERSION 

ODOD 

0404  4 

ODDD  79 

0405  FIX32 

NOV 

AiC 

IF  NEGATIVE.  INVERT 

ODDE  EE  80 

0406 

XRI 

80H 

RESULTS 

ODEO  FA  EA  OD 

0407 

JH 

FIXPOS 

0DE3  4F 

0408 

NOV 

C,A 

CDE4  CD  EA  OD 

0409 

CALL 

FIXPOS 

0DE7  C3  BC  OE 

0410 

JHP 

NE632 

ODEA 

0411  4 

ODEA  E6  7F 

0412  FIXPOS  ANI 

7FH 

IF  CDE< 1 ,  RETURN(O) 

ODEC  FE  41 

0413 

CPI 

41H 

ODEE  DA  18  OE 

0414 

JC 

ZERDH 

0DF1  FE  60 

0415 

CPI 

60H 

IF  >24431.  MAX  IT 

0DF3  D2  IF  OE 

0416 

JNC 

NAXCH 

0DF6 

0417  4 

0DF6  21  00  00 

0418 

LXI 

H.O 

ELSE  SHIFT  HANT1SSA 

0DF9  D6  50 

0419 

SUI 

40H+16 

IF  24416.  QUIT 

ODFB  C8 

0420 

R2 

, 

ODFC  EB 

0421 

XCHG 

• 

DEHL=OOXX ,  REACT  TO  SHIFT 

ODFD  D2  OF  OE 

0422 

JNC 

SHDH 

IF  EXP  NAS  51  TO  5F,  GO 

OEOO  C6  10 

0423 

ADI 

16 

ELSE  41-4F,  SHIFT  THEN 

0E02  CD  OF  OE 

0424 

CALL 

SHDH 

DIVIDE  BY  24416 

0E05  EB 

0425 

XCHG 

OE06  II  00  00 

0426 

LXI 

D,0 

0E09  C9 

0427 

RET 

• 

OEOA 

0428  I 

OEOA  29 

0429  SHCAR 

DAD 

H 

SHIFT  DE  PART 

OEOB  2C 

0430 

INR 

L 

AND  PUT  IN  CARRY 

OEOC  EB 

0431  DECRA 

XCH6 

• 

SNAP  BACK  HL 

OEOD  3D 

0432 

PCR 

A 

IF  COUNTS,  QUIT 

OEOE  C8 

0433 

RZ 

, 

OEOF  29 

0434  SHDH 

DAD 

H 

SHIFT  HL  ONE  BIT 

0E10  EB 

0435 

XCHG 

, 

IF  CARRY.  THEN 

0E11  DA  OA  OE 

0436 

JC 

SHCAR 

UPDATE  DE  WITH  CARRY 

0EI4  29 

0437 

DAD 

H 

ELSE  WITHOUT  CARRY 

0E15  C3  OC  OE 

0438 

JHP 

DECRA 

0E1B 

0439  I 

OE 1 8  11  00  00 

0440  ZERDH 

LXI 

D,0 

DEHL=0 

0E1B  21  00  00 

0441 

LXI 

H,0 

0E1E  C9 

0442 

RET 

. 

0E1F  11  FF  7F 

0443  MAXDH 

LXI 

D, 7FFFH  DEHLsHAXINUH 

0E22  21  FF  FF 

0444 

LXI 

H.-I 

0E25  C9 

04 

RET 

a 

0E26 

0446  t 

0E26 

0447  t  SQUARE  CCCE1 

0E26 

0448  4 

0E26  7A 

0449  FSOUA 

NOV 

A ,  D 

CHECK  FOR  0 
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0E27  B7 

0450 

ORA 

A 

0E2B  CB 

0451 

R2 

t 

0E29  41 

0452 

MDV 

B,C 

BHL=CDE 

0E2A  62 

0453 

MOV 

H.D 

0E2B  6B 

0454 

MOV 

L,E 

0E2C  C3  40  OC 

0455 

JMP 

FMS33 

0E2F 

0456  » 

0E2F  7A 

0457  FS0RT  MOV 

A,  D 

IF  ZERO,  QUIT 

0E30  B7 

045B 

ORA 

A 

0E31  CB 

0459 

RZ 

t 

0E32  79 

0460 

MOV 

A,  C 

IF  ODD  EXPONENT,  SHIFT 

0E33  E6  01 

0461 

ANI 

1 

0E35  C4  ID  00 

0462 

CNZ 

RITE1 

0E3B  C5 

0463 

PUSH 

B 

SAVE  EXPONENT 

0E39  CD  97  OE 

0464 

CALL 

S8R2 

DE=DEttl/2 

0E3C  Cl 

0465 

POP 

B 

CE3D  79 

0466 

MOV 

A.C 

DIVIDE  EXP  BY  2 

0E3E  OF 

0467 

RRC 

0E3F  C6  20 

046B 

ADI 

20H 

IN  EXCESS  64 

0E41  4F 

0469 

MOV 

C,A 

0E42  C9 

0470 

RET 

, 

0E43 

0471  1 

0E43 

0472  1 

16  X  16  MULTIPLY  UNSIGNED.  OPTIMIZED  FDR  F.P. 

0E43 

0473  * 

CAHL1  =  IHL1  t  [DEI  TOP  3  BYTES 

0E43 

0474  » 

0E43  97 

0475  HU22F  SUB 

A 

IF  E-0,  DO  SHORT  MULT 

0E44  BB 

0476 

CMP 

E 

0E45  CA  5B  OE 

0477 

JZ 

SHDRD 

0E4B  B5 

047B 

ORA 

L 

IF  L=0,  DO  SHORT  NITH  H 

0E49  CA  5C  OE 

0479 

JZ 

SHDRH 

0E4C  E5 

04B0 

PUSH 

H 

AHL=  LIDE 

0E4D  CD  50  OE 

0481 

CALL 

MU21 

0E50  6C 

0482 

MOV 

L,H 

THROW  AWAY  LS  BYTE 

0E51  67 

0483 

MOV 

H,  A 

SAVE  UPPER  BYTES 

0E52  E3 

04B4 

XTHL 

, 

SAVE  EM,  GET  MS  BYTE  DF  1ST 

0E53 

04B5  1 

0E53  7C 

0486 

MOV 

A,  H 

AHL=MSBtDE 

0E54  CD  50  OE 

04B7 

CALL 

MU21 

0E57  01 

04BB 

POP 

D 

GRAB  THE  TWD  STORED 

0E58  19 

04B9 

DAD 

D 

ADD  PARTIAL  RESULTS 

0E59  BB 

0490 

ADC 

B 

FOR  THREE  BYTES  (AHL) 

0E5A  C9 

0491 

RET 

• 

0E5B 

0492  t 

0E5B  EB 

0493  SHDRD  XCH6 

• 

SHORT  MULT 

0E5C  7C 

0494  SHDRH  MOV 

A,H 

JUST  MULT  HIDE 

0E5D 

0495  » 

0E5D 

0496  1 

16  X  6  MULTIPLY  UNSIGNED 

0E5D 

0497  1 

CAHLI  <- 

A  t  IDE! 

0E5D 

049B  t 

TAKES  198  TD  297  CYCLES 

0E5D 

0499  1 

BB  PAGE  10 


t 


A 
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0E5D  21  00  00 

0500  MU21 

Lit 

H.O 

0E60  44 

0501 

MOV 

B.H 

0E6I 

0502  » 

0E61  87 

0503  MULTI 

ADD 

A 

0E62  D2  67  OE 

0504 

JNC 

12 

0E65  19 

0505 

DAD 

D 

0E66  88 

0506 

ADC 

B 

0E67  29 

0507  12 

CAD 

H 

0E69 

0508  $ 

0E68  8F 

0509 

ADC 

A 

0E69  G2  6E  OE 

0510 

JNC 

14 

0E6C  19 

0511 

DAD 

D 

0E6D  88 

0512 

ADC 

B 

CE6E  29 

0513  14 

DAD 

H 

0E6F 

0514  t 

0E6F  8F 

0515 

ADC 

A 

OE70  D2  75  OE 

0516 

JNC 

18 

OE”  19 

0517 

DAD 

D 

0E74  88 

0518 

ADC 

B 

0E75  29 

0519  18 

DAD 

H 

0E76 

0520  1 

0E76  8F 

0521 

ADC 

A 

0E77  D2  7C  OE 

0522 

JNC 

110 

0E7A  19 

0523 

DAD 

D 

0E7B  88 

0524 

ADC 

B 

0E7C  29 

0525  110 

DAD 

H 

0E7D 

0526  1 

0E7D  8F 

0527 

ADC 

A 

0E7E  02  83  OE 

0528 

JNC 

120 

0E81  19 

0529 

DAD 

D 

0E82  88 

0530 

ADC 

E 

OE83  29 

0531  120 

DAD 

H 

0E84 

0532  » 

OE84  8F 

0533 

ADC 

A 

0E85  D2  8A  OE 

0534 

JNC 

140 

0E88  19 

0535 

DAD 

D 

0E89  88 

0536 

ADC 

B 

0E8A  29 

0537  140 

DAD 

H 

0E8B 

0538  1 

0E3B  8F 

0539 

ADC 

A 

OEBC  D2  91  OE 

0540 

JNC 

180 

0E8F  19 

0541 

DAD 

D 

0E90  88 

0542 

ADC 

B 

0E91  29 

0543  180 

DAD 

H 

0E92 

0544  1 

0E92  8F 

0545 

ADC 

A 

0E93  DO 

0546 

RNC 

0E94  19 

0547 

DAD 

D 

0E95  88 

0548 

ADC 

B 

0E96  C9 

0549 

RET 

ZERO  RESULT  REG 
8<-0 

SHIFT  MSB  TO  CARRY 

IF  C=l.  THEN  ADD  COE] 

IF  OVERFLOW, BUMP  HSBYTE 
SHIFT  FOR  NEXT  TEST 

AND  SO  ON 
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OE97 

0550  t 

OE97 

0551  t  INTEGER  SQUARE  ROOT  OF  DE 

OE97 

0552  * 

m 

OE97  01  00  80 

0553  SQR2 

LX  I 

B.BOOOH  6UESS=B0,  R00T0=0 

0E9A  CD  A7  OE 

0554  SSRA1 

CALL 

APPX 

CHECK  APPROXIMATION 

0E9D  78 

0555 

NOV 

A, 8 

AND  SHIFT  APPX  8IT 

0E9E  OF 

0556 

RRC 

0E9F  47 

0557 

MOV 

8, A 

OEAO  D2  9A  OE 

0558 

JNC 

SCRA1 

0EA3  51 

0559 

MOV 

D.C 

DE=RESULT 

0EA4  IE  00 

0560 

MVI 

E.O 

0EA6  C9 

0561 

RET 

a 

0EA7 

0562  t 

0EA7  D5 

0563  APPX 

PUSH 

D 

SAVE  X 

0EA8  78 

0564 

MOV 

A, 8 

TRY  NEW  TEST  BIT 

0EA9  81 

0565 

ADD 

C 

OEAA  5F 

0566 

MOV 

Ej  A 

0EA8  16  00 

0567 

MVI 

D,0 

OEAD  C5 

0568 

PUSH 

8 

SAVE  8C 

OEAE  CD  5D  OE 

0569 

CALL 

HU21 

AHL=AIDE 

0E81  Cl 

0570 

POP 

8 

0EB2  D1 

0571 

POP 

D 

COHPARE  TO  X 

0E83  78 

0572 

MOV 

A,  E 

IF  X  <HL  THEN  TOO  8IG 

0E84  95 

0573 

SU8 

L 

0E85  7A 

0574 

MOV 

A,  D 

0E86  9C 

0575 

S88 

H 

0E87  DB 

0576 

RC 

, 

0E88  78 

0577 

MOV 

A ,  B 

ELSE  ADD  TEST  BIT  TO  C 

0EB9  81 

0578 

ADD 

C 

0E8A  4F 

0579 

NOV 

C,  A 

0E8B  C9 

0590 

RET 

• 

0E8C 

0581  t 

0E8C  CD  CA  OE 

0582  NEG32 

CALL 

INV16 

INVERT  DEHL 

0E8F  E8 

0583 

XCHG 

OECO  CD  CA  OE 

0584 

CALL 

INV16 

0EC3  E8 

0585 

XCHG 

• 

0EC4  23 

0586 

INX 

H 

AND  ADD  1 

0EC5 

0587  1 

0EC5  7C 

0588 

NOV 

A ,  H 

IF  HL=0,  I NCR  DE 

0EC6  85 

0589 

ORA 

L 

0EC7  CO 

0590 

RNZ 

. 

0EC8  13 

0591 

INX 

D 

0EC9  C9 

0592 

RET 

t 

OECA 

0593  1 

OECA  7C 

0594  INV16 

NOV 

A,H 

INVERT  HL 

OECB  2F 

0595 

CNA 

OECC  67 

0596 

NOV 

H,A 

OECD  7D 

0597 

NOV 

A,L 

OECE  2F 

0598 

CNA 

OECF  6F 

0599 

NOV 

L,A 

Or 


332 


12-6-88 


PAGE  13 


UCB  SPACE  SCIENCES  LAB 
CARES  FLIGHT  SOFTWARE  V2.1 

OEBO  C9  0600 

0ED1  00  V  0601 


RET  . 

OB  256  END  OF  FFP 


f 


* 

« 
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8000 

C3 

80 

03 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8010 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8020 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8030 

00 

00 

00 

00 

E5 

2A 

04 

10 

E9 

00 

00 

00 

C3 

C5 

00 

00 

8040 

C3 

7C 

00 

C3 

AF 

00 

C3 

AA 

00 

C3 

FE 

00 

C3 

04 

01 

C3 

8050 

OE 

01 

C3 

68 

01 

C3 

3A 

01 

C3 

2A 

02 

C3 

7C 

01 

C3 

AF 

8040 

01 

C3 

CF 

01 

C3 

67 

02 

C3 

71 

02 

C3 

DC 

01 

C3 

E2 

01 

8070 

C3 

01 

02 

C3 

17 

02 

C3 

B1 

00 

C3 

Cl 

00 

3E 

4C 

D3 

20 

8080 

3E 

4F 

D3 

60 

CD 

43 

02 

3E 

50 

CD 

AA 

00 

97 

32 

03 

10 

8090 

32 

08 

10 

21 

00 

00 

CD 

81 

00 

11 

34 

01 

21 

OE 

10 

OE 

BOAO 

06 

1A 

77 

13 

23 

OD 

C2 

A1 

00 

C9 

32 

00 

10 

30 

C9 

20 

8080 

C9 

F3 

22 

04 

10 

7C 

B5 

3E 

OB 

CA 

BE 

00 

3E 

09 

30 

FS 

80C0 

C9 

32 

08 

10 

C9 

F5 

C5 

D5 

OE 

10 

3E 

CO 

30 

20 

07 

DA 

BODO 

CD 

00 

00 

3E 

00 

20 

07 

18 

OD 

C2 

D3 

00 

EB 

22 

01 

10 

BOEO 

E8 

3E 

01 

32 

03 

10 

3A 

00 

10 

E6 

80 

F6 

50 

30 

D1 

Cl 

80F0 

3A 

08 

10 

OF 

DA 

FA 

00 

FI 

FB 

C9 

FI 

37 

F9 

C9 

21 

03 

8100 

10 

7E 

87 

C9 

CD 

FE 

00 

CB 

36 

00 

2A 

01 

10 

C9 

E5 

C5 

8110 

OE 

10 

3E 

CO 

32 

00 

10 

30 

F3 

CD 

OE 

10 

3E 

40 

30 

3E 

8120 

80 

29 

IF 

30 

OD 

C2 

IF 

01 

Cl 

El 

3E 

40 

32 

00 

to 

F6 

8130 

10 

30 

FB 

C9 

20 

07 

D2 

OE 

10 

C9 

F5 

87 

E6 

FE 

6F 

26 

8140 

30 

3E 

03 

32 

01 

30 

7E 

CD 

61 

01 

7E 

CD 

61 

01 

5E 

2C 

8150 

66 

68 

FI 

FE 

OD 

CO 

29 

29 

29 

29 

6C 

DB 

23 

E6 

OF 

67 

8140 

C9 

3E 

02 

3D 

C2 

63 

01 

C9 

DC 

3A 

02 

3E 

40 

CD 

58 

02 

8170 

3E 

80 

CD 

58 

02 

CD 

48 

02 

3A 

4C 

30 

C9 

C5 

E6 

03 

47 

8i  80 

7C 

E6 

FO 

80 

07 

07 

07 

07 

F6 

40 

CD 

A3 

01 

2D 

22 

FF 

8190 

CF 

2C 

3A 

09 

10 

CD 

CO 

01 

29 

78 

17 

32 

OD 

10 

22 

08 

81A0 

10 

Cl 

C9 

D5 

32 

07 

10 

11 

61 

70 

CD 

86 

02 

D1 

C9 

79 

8180 

E6 

07 

32 

OA 

10 

EE 

07 

D3 

63 

32 

06 

10 

78 

32 

09 

10 

81C0 

87 

87 

87 

E6 

3F 

4F 

3A 

07 

10 

E6 

80 

81 

C3 

A3 

01 

E6 

81D0 

01 

OF 

47 

3A 

07 

10 

E6 

3F 

80 

C3 

A3 

01 

2A 

00 

FO 

C3 

81E0 

E5 

01 

22 

00 

80 

E5 

2A 

08 

10 

11 

04 

00 

19 

22 

08 

10 

81F0 

D2 

FF 

01 

21 

OD 

10 

34 

3A 

OA 

10 

3C 

8E 

CC 

01 

02 

El 

8200 

C9 

3A 

09 

10 

CD 

OA 

02 

C3 

7C 

01 

OF 

C5 

47 

E6 

80 

67 

8210 

2E 

00 

78 

E6 

03 

Cl 

C9 

3A 

OD 

10 

C5 

87 

IF 

47 

2A 

08 

8220 

10 

7C 

IF 

67 

7D 

IF 

6F 

78 

Cl 

C9 

DC 

3A 

02 

FE 

06 

DO 

8230 

CD 

78 

02 

7D 

CD 

58 

02 

C3 

48 

02 

F5 

3A 

06 

10 

F6 

20 

8240 

C3 

4E 

02 

3E 

FF 

CD 

61 

02 

F5 

3A 

06 

10 

E6 

DF 

D3 

63 

8250 

32 

06 

10 

CD 

71 

02 

FI 

C9 

2F 

CD 

61 

02 

CD 

71 

02 

3E 

8260 

FF 

11 

62 

20 

C3 

86 

02 

06 

CB 

CD 

71 

02 

05 

C2 

69 

02 

8270 

C9 

11 

71 

02 

18 

78 

82 

C2 

74 

02 

C9 

21 

01 

00 

E6 

OF 

8280 

C8 

29 

3D 

C3 

80 

02 

F5 

3E 

01 

87 

C2 

8E 

02 

53 

FI 

12 

8290 

C9 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

82A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8280 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

82C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B2D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

82E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

82F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8300 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

384 


UC8  SPACE  SCIENCES  LAB 
CRRES  FL16HT  SOFTWARE  V2. 1 


12-6-88 


PAGE  02 


8310:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8320:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8330:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8340:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8350:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8360:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8370:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8380:  31  00  18  21  11  11  CD  FA  03  CD  40  00  CD  67  00  CD 
8390:  40  04  CD  40  05  97  32  20  10  21  00  00  CD  FA  03  CD 
33A0:  4C  00  C2  A8  03  CD  CO  03  C3  9F  03  22  21  10  CD  FA 
8380:  03  CD  43  05  D2  9F  03  CD  43  04  DC  C8  03  C3  9F  03 
83C0:  2A  C9  03  22  23  10  C3  23  10  76  C9  21  20  10  34  C9 
83D0:  11  00  10  OE  08  2E  00  CD  E6  03  29  CA  DF  03  2C  14 
83E0:  7A  OD  C2  D7  03  C9  IE  00  CD  FI  03  CO  1C  C2  E8  03 
83P0:  C9  1A  47  2F  12  1A  2F  12  88  C9  7D  D3  00  7C  D3  01 
8400:  C9  42  55  52  53  54  20  32  2D  31  2D  38  35  20  50  52 
8410:  20  48  41  52  56  45  59  00  00  00  00  00  00  00  00  00 
8420:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
3430:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8440:  C3  46  04  C3  4D  04  21  02  12  22  00  12  C9  7C  E6  FC 
8450:  FE  8C  37  CO  E8  7A  D6  8C  CA  69  04  3D  CA  6E  04  3D 
3460:  CA  73  04  3D  CA  7C  04  37  C9  7B  32  00  12  C9  78  32 
8470:  01  12  C9  2A  00  12  73  23  22  00  12  C9  3A  02  12  FE 
3480:  AA  CO  97  32  02  12  C3  03  12  00  00  00  00  00  00  00 
8490:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
64A0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8480:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
84C0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
84D0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
84E0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
84F0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8500:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8510:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8520:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8530:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8540:  C3  46  05  C3  63  05  CD  CO  08  97  CD  C3  08  3E  OF  CD 
8550:  94  05  B7  CD  52  00  97  32  D5  10  21  00  00  CD  5B  00 
8560:  21  45  83  7C  E6  FO  FE  80  37  CO  7C  D6  BO  FE  08  3F 
8570:  D8  E8  87  21  7E  05  CD  51  08  CD  56  08  78  E9  94  05 
8580:  C3  08  C6  08  9A  05  EO  05  2E  06  26  06  19  06  46  06 
8590:  00  00  D9  05  E6  OF  32  C4  10  C9  5F  OF  OF  OF  OF  E6 
85A0:  07  47  32  C6  10  78  E6  07  4F  32  C7  10  CD  5E  00  21 
8580:  05  00  06  00  CD  C8  05  3A  C6  10  E6  07  67  3A  C7  10 
85C0:  6F  06  01  CD  C8  05  87  C9  7D  BC  D8  78  OF  7C  E5  C5 
85D0:  CD  58  00  Cl  El  24  C3  C8  05  32  D5  10  OF  C3  52  00 
85E0:  3A  D5  10  OF  3F  DC  52  00  CD  E4  06  3A  C5  10  CD  CF 
85F0:  06  CD  65  07  22  CO  10  D5  CD  4F  00  El  22  C2  10  CD 
8600:  4F  00  CD  70  00  21  OA  88  CD  6D  00  CD  70  00  CD  6A 
8610:  00  11  OA  BB  CD  58  08  37  CO  3E  01  32  C8  10  CD  1C 
8620:  07  CD  D6  10  97  C9  21  OC  D8  CD  6D  00  97  C9  3A  D5 
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8630:  10  OF  D4  52  00  CD  9F  07  21  48  4F  D2  41  06  21  4F 
8640:  4E  CD  4F  00  87  C9  3A  C8  10  FE  01  CC  9F  07  CD  8A 
8650:  06  3A  C8  10  FE  02  C8  2A  C9  10  3A  C8  10  CD  58  00 
8660:  CD  49  00  C2  81  06  CD  6A  00  CD  4F  00  CD  73  00  E8 
8670:  47  2A  CC  10  CD  58  08  C2  60  06  3A  CE  10  88  C2  60 
8680:  06  97  21  00  00  CD  58  00  87  C9  3E  82  CD  CF  06  3E 
8690:  A1  CD  CF  06  3A  C5  10  CD  CF  06  2A  C9  10  CD  4F  00 
86A0:  2A  CA  10  CD  D8  06  CD  4F  00  2A  CC  10  CD  4F  00  2A 
8680:  CD  10  CD  D8  06  CD  4F  00  CD  C9  08  EB  CD  CC  08  4F 
86C0:  CD  CF  06  79  87  C8  1A  CD  CF  06  13  OD  C3  C3  06  6F 
86D0:  26  00  C3  4F  00  C3  C8  05  06  04  97  29  17  05  C2  D8 
86E0:  06  6C  67  C9  CD  OB  07  41  CD  CC  08  4F  CD  C9  08  E8 
86=0:  21  D6  10  3A  C5  10  FE  08  D2  00  07  06  02  C3  40  OA 
8700:  78  B7  06  00  CA  40  OA  04  C3  40  OA  3A  C4  10  32  C5 
8710:  10  CD  1C  07  DO  21  C5  10  35  C3  11  07  3A  C5  10  21 
8720:  35  07  CD  51  08  4E  3A  C5  10  FE  08  3F  DO  CD  CC  08 
8730:  47  79  90  4F  C9  C8  64  28  14  OA  04  02  01  14  OA  06 
8740:  04  03  02  01  00  OA  00  14  00  32  00  64  00  C8  00  F4 
8750:  01  E8  03  DO  07  AO  08  40  17  Cl  26  21  3A  81  4D  42 
8760:  74  84  E8  84  E8  3A  C5  10  87  21  45  07  CD  51  08  CD 
8770:  56  08  E5  CD  CC  08  D1  CD  24  OC  16  00  5F  CD  18  OC 
8780:  21  CF  10  CD  03  OC  3A  C7  10  21  C6  10  96  3C  57  IE 
8790:  00  26  00  CD  18  OC  21  CF  10  CD  09  OC  C3  18  OC  21 
8 7 AO:  OE  F8  CD  6D  00  CD  70  00  11  OE  F8  CD  16  08  D8  CD 
8780:  73  00  22  CC  10  32  CE  10  CD  70  00  CD  6A  00  11  OA 
87C0:  88  CD  58  08  C2  D5  07  CD  73  00  22  C9  10  32  C8  10 
87D0:  97  32  C8  10  C9  2A  CC  10  3A  CE  10  CD  58  00  CD  CC 
87E0:  08  4F  CD  49  00  CO  41  CD  6A  00  11  OC  D8  CD  58  08 
87F0:  CA  03  08  11  OE  F8  CD  5B  08  CA  03  08  05  C2  E7  07 
6800:  C3  E2  07  79  90  F5  2A  CC  10  3A  CE  10  CD  58  00  Fl 
8810:  C4  47  08  C3  C7  07  3E  03  32  D4  10  21  00  00  22  D2 
8820:  10  CD  49  00  37  CO  D5  CD  6A  00  D1  CD  5B  08  C8  21 
8830:  D2  10  35  C2  26  08  23  35  C2  21  08  23  35  C2  21  08 
8840:  3E  02  32  C8  10  37  C9  F5  CD  6A  00  Fl  3D  C2  47  08 
8850:  C9  85  6F  DO  24  C9  7E  23  66  6F  C9  7D  88  CO  7C  8A 
8860:  C9  7D  D3  00  7C  D3  01  C9  00  00  00  00  00  00  00  00 
8870:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8880:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8890:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
88 AO:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
88B0:  00  00  00  00  00  00  00  00  00  00  00  .00  00  00  00  00 
88C0:  C3  DD  08  C3  D2  08  C3  24  09  C3  F3  OB  C3  1A  09  C3 
88D0:  OD  09  E6  OF  32  30  10  3E  FF  32  31  10  C9  21  33  10 
88E0:  11  A4  09  OE  06  1A  13  77  23  OD  C2  E5  08  2D  7D  32 
88F0:  32  10  C9  3A  30  10  FE  OA  21  7C  09  DA  03  09  21  33 
8900:  10  D6  OA  87  C8  CD  OD  09  23  3D  C3  03  09  F5  7E  FE 
8910:  FO  CA  18  09  23  C3  OE  09  Fl  C9  CD  F3  08  5D  CD  OD 
8920:  09  7D  93  C9  4F  3A  30  10  FE  OA  D8  21  31  10  34  C2 
8930:  3B  09  CD  F3  08  CD  60  09  CA  35  09  CD  F3  08  CD  OD 
8940:  09  79  F5  E5  3A  32  10  FE  78  D2  5C  09  5F  54  3C  32 
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3950:  32  10  1A  13  12  18  18  78  BD  D2  52  09  El  FI  77  C9 
8960:  7E  FE  FO  CA  7A  09  E5  23  7E  28  77  23  3A  32  10  BD 
8970:  C2  67  09  21  32  10  35  El  97  C9  3C  C9  OB  FO  08  07 
8980:  FO  08  05  FO  OB  05  07  FO  OB  05  01  02  00  FO  00  01 
8990:  02  03  04  05  06  00  07  08  09  OA  08  OC  OD  OE  OF  FO 
89 AO:  FO  FO  FO  FO  FO  FO  FO  FO  FO  FO  00  00  00  00  00  00 
8980:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
B9C0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
89D0:  00  00  00  00  00  00  00  00  00  o'1  00  00  00  00  00  00 
39E0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
89F0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8AOO:  00  CO  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8A10:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8A20:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8A30:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8A40:  CD  18  06  EB  CD  87  OA  CD  D4  OA  79  FE  03  D4  73  OA 
3A50:  CD  A6  OA  23  79  FE  02  DA  60  OA  CD  CB  OA  CD  A6  OA 
BA60:  CD  EE  OA  11  53  08  21  94  10  OE  24  CD  27  OB  2A  90 
3A70:  10  B7  C9  E5  C5  23  23  OD  OD  CD  A6  OA  CD  CB  OA  23 
8A80:  OD  C2  79  OA  Cl  El  C9  3A  AO  OA  CD  1C  08  78  CD  1C 
8A90:  OB  11  A2  OA  CD  OD  OB  E5  2A  90  10  22  92  10  El  C9 
8AA0:  06  00  CD  30  OB  FF  7E  FE  3F  11  C3  OA  CA  OD  OB  3A 
SABO:  CO  Ofi  CD  1C  CB  7E  87  CD  1C  OB  3A  C2  OA  C3  1C  08 
SACO:  2A  00  BO  2A  90  90  2C  22  90  10  FF  11  D1  OA  C3  OD 
3AD0:  08  D8  7F  FF  78  87  C8  3D  11  E9  OA  CA  OD  08  11  E4 
8AE0:  OA  C3  OD  08  69  CD  9F  10  FF  69  CD  94  10  FF  11  06 
8AF0:  OB  CD  OD  OB  3A  92  10  CD  1C  08  3A  93  10  CD  1C  08 
8B00:  11  09  OB  C3  OD  OB  D2  FF  IF  C3  4B  08  FF  1A  FE  FF 
3B10:  C8  CD  1C  08  13  C3  OD  08  22  90  10  C9  E5  2A  90  10 
BB20:  77  23  22  90  10  El  C9  1A  77  13  23  OD  C2  27  08  C9 
8B30:  CE  01  CD  61  00  3E  03  32  01  30  21  00  00  22  90  10 
B840:  3E  01  CD  79  00  F8  3A  90  .0  87  C9  97  CD  79  00  97 
8850:  C3  61  00  FB  2D  C8  D8  7F  00  00  D2  94  10  C9  D4  A7 
8B60:  10  2D  C2  9F  10  C9  F3  F5  06  20  20  AO  C2  A8  10  20 
8B70:  AO  CA  80  10  FI  F8  C9  00  00  00  00  00  00  00  00  00 
3630:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8690:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8BA0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
88B0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8BC0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8BD0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8EE0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
3BF0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8C00:  C3  27  OC  C3  2D  OC  C3  33  OC  C3  5E  OC  C3  F2  OC  C3 
8C10:  E8  OC  C3  DC  OC  C3  4B  OC  C3  62  OD  C3  DD  OD  C3  26 
3C20:  OE  C3  2F  OE  C3  5D  OE  4E  23  56  23  5E  C9  71  23  72 
3C30:  23  73  C9  7A  87  C9  46  23  7E  87  CA  C3  OD  23  6E  67 
8C40:  78  A9  F2  50  OC  CD  D4  OD  CD  50  OC  79  EE  80  4F  C9 
8C50:  78  81  D6  40  FA  C9  OD  4F  CD  43  OE  C3  AF  OD  7A  B7 
8C60:  C8  46  23  7E  B7  CA  CE  OD  23  6E  67  78  A9  F2  79  OC 
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8C70:  CD  D4  OD  CD  79  OC  C3  48  OC  79  90  C6  40  FA  C9  OD 
9C80:  4F  C5  7C  2F  47  7D  2F  4F  03  62  68  09  DA  A9  OC  E8 
8C90:  3E  10  CD  C2  OC  29  DA  9F  OC  09  DA  9F  OC  Cl  C9  Cl 
8CA0:  1C  CO  14  CO  11  00  80  OC  C9  3E  10  11  FF  FF  CD  C2 
8C80:  OC  Cl  OC  37  7A  IF  57  78  IF  5F  DO  C3  AO  OC  33  33 
8CC0:  3D  C8  29  DA  D4  OC  EE  29  E8  1C  E5  09  DA  8E  OC  El 
8CD0:  ID  C3  CO  OC  £B  29  EE  09  1C  C3  CO  OC  C5  D5  CD  EB 
8CE0:  OC  7A  87  CA  E8  OC  7?  07  D1  Cl  C9  7E  EE  80  47  C3 
8CF0:  F3  OC  46  23  7E  23  6E  67  97  8C  C8  8A  CA  5F  OD  79 
BDOO:  90  87  F2  OB  OD  78  41  4F  EB  90  87  CA  15  OD  OF  FE 
8D10:  10  DO  CD  47  OD  78  A9  FA  25  OD  19  E8  DO  7A  IF  57 
8D20:  7B  IF  5F  OC  C9  78  95  7A  9C  DA  3A  OD  57  78  95  5F 
8D30:  21  00  00  82  C2  74  OD  OE  00  C9  7D  93  5F  7C  9A  57 
8D40:  48  21  00  00  C3  74  OD  D6  08  DA  52  OD  6C  26  00  C8 
8D50:  D6  08  C5  47  97  29  8F  04  C2  55  OD  Cl  6C  67  C9  E8 
8D60:  48  C9  7A  87  OE  60  F2  74  OD  CD  BC  OE  CD  74  UD  79 
8D70:  F6  80  4F  C9  7?  87  F2  82  OD  E6  7F  4F  CD  82  OD  C3 
8D80:  4B  OC  7A  B7  C2  AC  OD  83  C2  A1  OD  B4  C2  98  OD  B5 
8D90:  C2  95  OD  4A  C9  55  06  18  C3  A6  OD  E8  06  10  C3  A6 
8DA0:  OD  53  5C  65  06  08  79  90  4F  DA  C3  OD  7A  6C  63  87 
8D80:  FA  89  OD  OD  29  8F  F2  83  OD  57  5C  7D  07  DC  AO  OC 
BDCO:  79  B7  FO  OE  00  11  00  00  C9  FE  CO  D2  C3  OD  OE  7F 
3DD0:  11  FF  FF  C9  78  E6  7F  47  79  E6  7F  4F  C9  79  EE  80 
8DE0:  FA  EA  OD  4F  CD  EA  OD  C3  8C  OE  E6  7F  FE  41  DA  18 
8DF0:  OE  FE  60  D2  IF  OE  21  00  00  D6  50  C8  E8  D2  OF  OE 
SEOO:  CA  10  CD  OF  OE  E8  11  00  00  C9  29  2C  E8  3D  C8  29 
8E10:  E8  DA  OA  OE  29  C3  OC  OE  11  00  00  21  00  00  C9  11 
8E20:  FF  7F  21  FF  FF  C9  7A  B7  C8  41  62  68  C3  40  OC  7A 
8E30:  87  C8  79  E6  01  C4  ID  OD  C5  CD  97  OE  Cl  79  OF  C6 
BE40:  20  4F  C9  97  BD  CA  5B  OE  85  CA  5C  OE  E5  CD  5D  OE 
8E50:  6C  67  E3  7C  CD  3D  OE  D1  19  88  C9  E8  7C  21  00  00 
BE 60:  44  87  D2  67  OE  19  88  29  8F  D2  6E  OE  19  88  29  8F 
8E70:  D2  75  OE  19  88  29  8F  D2  7C  OE  19  88  29  8F  D2  83 
8E80:  OE  19  88  29  8F  D2  8A  OE  19  88  29  8F  D2  91  OE  19 
8E90:  88  29  8F  DO  19  88  C9  01  00  80  CD  A7  OE  78  OF  47 
8EA0:  D2  9A  OE  51  IE  00  C9  D5  78  81  5F  16  00  C5  CD  5D 
8E80:  OE  Cl  D1  78  95  7A  9C  D8  78  81  4F  C9  CD  CA  OE  EB 
8EC0:  CD  CA  OE  E8  23  7C  85  CO  13  C9  7C  2F  .67  7D  2F  6F 
8ED0:  C9  00  00  00  00  00  00  00  00  00  00  00  DO  00  00  00 
BEEO:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8EF0:  00  00  00  00  00  00  00  00  00  00  00  00  0<V  00  00  00 
8F00:  00  00  00  00  00  00  00  00  00  00  00  00  00  'OO  00  00 
8F10:  00  00  00  00  00  00  00  00  00  00  00  00  00  0$  00  00 
8F20:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  X|0  00 
8F30:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  0<K00 
8F40:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00- 
8F50:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8F60:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8F70:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8F80:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
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UCB  SPACE  SCIENCES  LAB 
CRRES  FLI6HT  SOFTWARE  V2.1 


12-6-88 


PA6E  06 


8F90:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8FA0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8FB0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8FC0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8FD0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8FE0:  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
8FF0:  00  CO  00  00  00  00  00  00  00  CO  00  00  00  00  00  00 
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Appendix  B. 
Block  Diagrams 
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Z  OF  Zy 


391 


I 


2.  op  2_ 


393 


